Dim obj As PageSet.PrinterControl Private Sub Command1_Click() Set obj = New PrinterControl obj.ChngOrientationLandscape ctSchedule1.PrintSchedule obj.ReSetOrientation 'This resets the printer to portrait. End SubHave added something similar to my VFP form:
WITH thisform.ctSchedule1 .PrintColumns = 3 .PrintTitle = "Project Schedule" .PrintTimeDistance = 15 SET PRINTER TO "\\server1\Copier" RELEASE oPrint oPrint = .NULL. oPrint = CREATEOBJECT("PageSet.PrinterControl") oPrint.ChngOrientationLandscape .PrintSchedule && send to printer oPrint.ReSetOrientation RELEASE oPrint oPrint = .NULL. ENDWITH
OLE IDispatch exception code 0 from PageSet: Subscript out of range..Have tried to passing parameters (.t., 1, 0, ...) but nothing works. I think this is due to not having admin rights on the network to manipulate the printer, and the error msg is a bit misleading. But was curious if anyone encountered something similar or new a workaround.