Programmatically setting Printer.PageSize options

[jfriedrich]

While working in Access 2003, it would appear that you lose your printer settings in reports periodically. Since this wreaks havoc on our users printing legal size reports, I am working on setting up the printer settings in VBA.
My code is simple and works to print:
dblRptWidth = prptReport.Width + prptReport.Printer.BottomMargin + prptReport.Printer.TopMargin + prptReport.Printer.LeftMargin + prptReport.Printer.RightMargin
Select Case dblRptWidth
Case dblRptWidth > 12240 And dblRptWidth < 15850
prptReport.Printer.PaperSize = acPRPSLetter
prptReport.Printer.Orientation = acPRORLandscape
Case dblRptWidth <= 12240
prptReport.Printer.PaperSize = acPRPSLetter
prptReport.Printer.Orientation = acPRORPortrait
Case Else
prptReport.Printer.PaperSize = acPRPSLegal
prptReport.Printer.Orientation = acPRORLandscape
End Select

This code is fired on Open of the report, and prints okay, but the preview is wrong. To correct the print preview, you must click File, Page Setup, Ok.
Does anyone know of a way to redraw or refresh the preview??

Thanks.

 

[genomon]

Here is an excellent article on programming for the printer object on MSDN, and a code download:

http://msdn.microsoft.com/library/d...ry/en-us/dnacc2k2/html/ODC_acc10_Printers.asp

Hope it will be of some help!

I have great faith in fools; self-confidence my friends call it.
-Poe

 

[jfriedrich]

Thank you.
I did look at the article this morning and it doesn't really help in my situation.
Since I am compiling to an MDE, I cannot open the form in design view first (run-time error occurs). I am already running the code on Open. The code is running just fine to setup the printers, I just can't get the consistency between the Print Preview and the Print.