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