Kaimberex

_Excel_Print() Question

4 posts in this topic

I am trying to print an Excel worksheet using the Excel UDF. I tried looking through the forums to find my answer but couldn't find my exact issue. 

I can get it to print to the default printer just fine. However when I try to tell the function what printer to use it still prints to my default printer. Here is a snippet of my code. I just want to make sure I am doing this correctly. Any help is appreciated! Thanks!

 

$oExcelChecklist = _Excel_Open(Default, Default, Default, Default, True)
    If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Error", "Error starting Excel." & @CRLF & "@error = " & @error & ", @extended = " & @extended)
    $sFilePathChecklist = @ScriptDir & "\Documents\New Hire Checklist.xlsx"
    $workbookChecklist = _Excel_BookOpen($oExcelChecklist, $sFilePathChecklist)
    If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Error", "Error opening to workbook." & @CRLF & "@error = " & @error & ", @extended = " & @extended)
    
    $msgboxPrint = MsgBox(36,"Print","Would you like to print the Quick Guide and Checklist?",0)
switch $msgboxPrint

    case 6 ;YES
    _Excel_Print($oExcelChecklist, $workbookChecklist.Activesheet,Default,"SecureColor",Default,Default,Default,Default,Default)
    If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Excel UDF: _Excel_Print Example 2", "Error printing worksheet." & @CRLF & "@error = " & @error & ", @extended = " & @extended)
    MsgBox($MB_SYSTEMMODAL, "Excel UDF: _Excel_Print Example 2", "Active Worksheet successfully printed.")
    

    case 7 ;NO
    

endswitch

Secure Color is the name of the printer I want to print to but it still prints to the default printer I have set in the OS. 

 

 

8-18-2016 9-43-13 AM.jpg

8-18-2016 9-49-37 AM.jpg

Share this post


Link to post
Share on other sites



You need to specify a network printer in UNC format: "\\VUSSLBSRFS1001.domain.tld\SecureColor"


My UDFs and Tutorials:

Spoiler

UDFs:
Active Directory (NEW 2017-04-18 - Version 1.4.8.0) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX (NEW 2017-02-27 - Version 1.3.1.0) - Download - General Help & Support - Example Scripts - Wiki
ExcelChart (2015-04-01 - Version 0.4.0.0) - Download - General Help & Support - Example Scripts
Excel - Example Scripts - Wiki
Word - Wiki
PowerPoint (2015-06-06 - Version 0.0.5.0) - Download - General Help & Support

Tutorials:
ADO - Wiki

 

Share this post


Link to post
Share on other sites
19 minutes ago, water said:

You need to specify a network printer in UNC format: "\\VUSSLBSRFS1001.domain.tld\SecureColor"

Thanks I was thinking that may have been the reason. I was just using the printer name I was not using the FQDN of the printer. 

Share this post


Link to post
Share on other sites

Note:
Make sure you observe lower case/upper case. "...\SecureColor" should work, "...\securecolor" will not.


My UDFs and Tutorials:

Spoiler

UDFs:
Active Directory (NEW 2017-04-18 - Version 1.4.8.0) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX (NEW 2017-02-27 - Version 1.3.1.0) - Download - General Help & Support - Example Scripts - Wiki
ExcelChart (2015-04-01 - Version 0.4.0.0) - Download - General Help & Support - Example Scripts
Excel - Example Scripts - Wiki
Word - Wiki
PowerPoint (2015-06-06 - Version 0.0.5.0) - Download - General Help & Support

Tutorials:
ADO - Wiki

 

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now