Solved: Printout Problems

[chungtinhlak]

I have over 50 reports that I have to print to 5 different printers every morning. I use if statement to control what printer it goes to.

I record a macro to get the code to print. However, Everyday, it give me an error saying that the activeprinter method fail. So I have to re-record a macro and paste it in again. When I re-record, the only thing i notice changing was "On Ne02:" it got change to a different port maybe "ON Ne10" or Ne08.

Is there a way around this problem?

[VBA]
Application.ActivePrinter = "\\Printerserver\Printername on Ne02:"
ActiveWindow.SelectedSheets.PrintOut Copies:=2, ActivePrinter:= _
"\\Printerserver\Printername on Ne02:", Collate:=True
[/VBA]

[mdmackillop]

You can use the code in this KB item to get the port each time you print. The Userform is not required.

[chungtinhlak]

thanks mdmackillop,

Can you help me get this to work, I been messing with it for a couple hours now but it doesn't seem to do anything. There are 3 function but I can't figure with function to call first.

thanks

[chungtinhlak]

I think i got it thanks

[mdmackillop]

You just need
[VBA]
Application.ActivePrinter = GetPrinterKey(PrinterName)

[/VBA]

[chungtinhlak]

yup, go it, thanks