Print to a specific Printer using VBA

[justanotheruser]

Hi all,

I'm using this code to print a sheet using VBA to a specific printer, called Lexmark E350d:

<CODE>Sub MyPrint()
Dim sCurrentPrinter As String
Const MyPrinter As String = "Lexmark E350d"
sCurrentPrinter = ActivePrinter
ActivePrinter = MyPrinter
ActiveSheet.PrintOut '<can change to specific sheet
ActivePrinter = sCurrentPrinter
End Sub</CODE>

Upon executing the code, I get Run-time error '1004': Method 'ActivePrinter' of object '_Global' failed - what does this error mean, debugging highlights the code highlighted in blue above. Thanks in advance!

 

[Andrew Poulsom]

What code do you get if you record a macro while setting that printer as the active printer?

 

[VoG]

Shouldn't it be

Application.ActivePrinter

 

[justanotheruser]

Hi - thanks for your fast response!

Sub PrinttoLexmark()
'
' PrinttoLexmark Macro
' this is a macro used to print to Lexmark e350d printer.
'

    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
End Sub

This printer is not set as the default printer either, so I selected it but it doesn't seem to add the printer name? Thanks again.

 

[justanotheruser]

hi VoG - where should that code go?

 

[VoG]

Try like this

Sub MyPrint()
Dim sCurrentPrinter As String
Const MyPrinter As String = "Lexmark E350d"
sCurrentPrinter = Application.ActivePrinter
Application.ActivePrinter = MyPrinter
ActiveSheet.PrintOut '
Application.ActivePrinter = sCurrentPrinter
End Sub

 

[justanotheruser]

Same error message unfortunately!

 

[VoG]

Try printing to the Lexmark then run this - it should give you the correct string to use

Sub test()
MsgBox Application.ActivePrinter
End Sub

 

[justanotheruser]

ah yes, I fixed it - because it's a network printer it was "on Ne06:". Thanks again!

Any chance you could look at this thread http://www.mrexcel.com/forum/showthread.php?t=564866 about a macro for copying the contents of a shape?

 

[concreteinterface]

Guys-
I'm just starting to learn VBA on my own. I wanted you to know this thread helped me out with what I was trying to accomplish. Thank you. Here's how I understand this. Is this correct?

Sub MyPrint()


'I don't know what this does
Dim sCurrentPrinter As String


'Converts the actual printer name to an easy name. In this case "MyPrinter"
Const MyPrinter As String = "HP0EC7A7 (HP Photosmart 6510 series) on Ne01:"


'I'm guessing this tells the system that the active printer before the macro is run is actually named sCurrentPrinter
sCurrentPrinter = Application.ActivePrinter


'This makes the active printer, MyPrinter
Application.ActivePrinter = MyPrinter


'This prints out the active sheet.
ActiveSheet.PrintOut '


'This switches the program back to whatever the active printer was before you ran the macro
Application.ActivePrinter = sCurrentPrinter


End Sub