Mega Code Archive

 

Categories / VisualBasic Script / Windows API

 

Modify Printer Settings

Sub ModifyPrinterSettings()          Dim prtPrinter As Printer          Set prtPrinter = Application.Printers(0)          prtPrinter.TopMargin = 500     prtPrinter.BottomMargin = 250     prtPrinter.LeftMargin = 500     prtPrinter.RightMargin = 500     prtPrinter.Copies = 5      End Sub