Windows API VisualBasic Script

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