Thread: Print Macro
View Single Post
 
Old 05-24-2017, 03:50 AM
Piotrwilczak Piotrwilczak is offline Windows 7 64bit Office 2016
Novice
 
Join Date: May 2017
Posts: 1
Piotrwilczak is on a distinguished road
Default Print Macro

Hello

We are using the macro below to print a copy on Plain and Letterhead at the same time . The application which we use is on remote server and our print server is on local network ( I think we use something called Remote Desktop Easy Print which kind of redirects the print job from the server on which the application reside to print server in our office). For the macro to work we have to edit it and change the redirected values every day.
Is there a way to edit this macro to specify the range of numbers (lets say from 1 to 65,000) no matter to which number printing is redirected macro would still work?



Sub Macro1()
'
' Macro1 Macro
'
'
ActivePrinter = _
"TCL012 - Team A - Headed on abctclfls001 (redirected 613)"
Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
wdPrintDocumentWithMarkup, Copies:=1, Pages:="", PageType:= _
wdPrintAllPages, Collate:=True, Background:=True, PrintToFile:=False, _
PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
PrintZoomPaperHeight:=0
ActivePrinter = "TCL012-Team A on abctclfls001 (redirected 613)"
Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
wdPrintDocumentWithMarkup, Copies:=1, Pages:="", PageType:= _
wdPrintAllPages, Collate:=True, Background:=True, PrintToFile:=False, _
PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
PrintZoomPaperHeight:=0
End Sub

I would be grateful if you could assist .

Thank You


Piotr
Reply With Quote