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