Modify Printer Settings : Printer « Windows API « VBA / Excel / Access / Word






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

 








Related examples in the same category

1.The Printer Object
2.The Printers Collection
3.Loop through all printer
4.Get default printer information