VBA Printing Question

[bcurrey]

I've searched on these forums and google and haven't been able to find anything I can get to work. I know this is pretty basic, but this is the first time I've tried printing from VBA to a network printer.

I have a report that runs automatically. A macro then runs to format it into the correct view. I want to print page 1 & 2 to the printer \\fhu48g\FHU119P. This print is not my default printer.

Can someone tell me the code I need to use to do this? Thanks.

 

[Tinbendr]

Here's the code for unassisted print.

Then add From:=1, To:=2

 

[bcurrey]

Here's the code for unassisted print.

Then add From:=1, To:=2

I tried that and kept getting errors. I also found the code below and tried it and get an error message. Any ideas? Thanks for the help, I'm much further along than I was yesterday!


The error code appears on the line I have highlighted in red. Error box reads "Run-time Error 1004. Method 'ActivePrinter of object'_Application' failed

Sub Macro1()
'
' Macro1 Macro
'
'
    Range("B1").Select
    ActiveCell.FormulaR1C1 = "BCurrey"
    Range("B2").Select
        
Dim sCurrentPrinter As String
Const MyPrinter As String = "[URL="file://\\fhu48g\FHU119P"]\\fhu48g\FHU119P[/URL]"
sCurrentPrinter = Application.ActivePrinter
[COLOR=#ff0000][B]Application.ActivePrinter = MyPrinter
[/B][/COLOR]ActiveSheet.PrintOut '
Application.ActivePrinter = sCurrentPrinter
    
    
 End Sub

 

[Tinbendr]

Try JUST the name of the printer; not the path and the printer.

 

[bcurrey]

Try JUST the name of the printer; not the path and the printer.

Thanks for the response. I tried that and it still didn't work. Gave me the same error on the same line.

 

[Tinbendr]

When you look at Printer and Faxes in the control panel, the name under the printer icon IS the name of the printer. Try to copy and paste it between quotes.

 

[bcurrey]

Thanks for the responses, I made some progress.
Using VBA code, I found the path to the printer. It is: "\\FHU48G\FHU119P on Ne03:"

I tried the new code below, and received the following error: "Run Time Error 424 - Object Required"

Sub Macro1()
'
' Macro1 Macro
'
'
    Range("B1").Select
    ActiveCell.FormulaR1C1 = "BCurrey"
    Range("B2").Select
        
Dim sCurrentPrinter As String
Const MyPrinter As String = "[URL="file://\\FHU48G\FHU119P"]\\FHU48G\FHU119P[/URL] on Ne03:"
sCurrentPrinter = Application.ActivePrinter
[B][COLOR="#FF0000"]Application.ActivePrinter = MyPrinterActiveSheet.PrintOut '[/B][/COLOR]
Application.ActivePrinter = sCurrentPrinter
    
    
 End Sub.