I am trying to force the printer objects properties prior to opoening a access 2003 report in preveiw mode. The properties do not seen to take effect.
here is what I am trying
Set LPRNTR = Application.Printers(lprinter)
Printer_Name = LPRNTR.DeviceName
LPRNTR.LeftMargin = 0.5 * 1440
LPRNTR.RightMargin = 0.5 * 1440
LPRNTR.TopMargin = 0.5 * 1440
LPRNTR.BottomMargin = 0.5 * 1440
LPRNTR.Printer.Orientation = acPRORLandscape
‘Application.Printer.Orientation = acPRORLandscape
DoCmd.OpenReport StDocName, acPreview, , strFilter
Set Rpt = Reports(“Fired Pills1”)
Set Rpt.Printer = LPRNTR
the setting of the desired printer works, but the margins and orientation do not.
I can set up the margins in page set up but that is specific only to the computer at hand. The report gets run on several computers so I would like to control it in code. Help please.
Thanks