Force DoCmd.OpenReport to first present printer options before starting to print

[GraeagleBill]

I have a report that requires the user be given the opportunity to override the default printer settings. Given my code:

DoCmd.OpenReport "rptBooklet", acViewNormal, , , , NumOnLastPage

Are there additional parameters I can provide to allow overriding of printer defaults?

(Note: I cannot process THROUGH PrintPreview, as PrintSection = False in the OnFormat is lost when the report is actually printed.)

Thanks,
Bill

[June7]

What settings do you want to override - just the destination?

The only method I am aware of is to change the default printer before publishing the report then reset it back to the original default. http://www.kallal.ca/msaccess/msaccess.html

[GraeagleBill]

Yes, I've also concluded that the default printer properties have to be pre-set before publishing. (The report is to be published duplex and the report's RecordSource has been "compiled" accordingly.) I'll mark this post as "Solved", as I'm sure now that we're right about what's needed.
Thanks,
Bill

[June7]

Some printer properties can be controlled programatically. I set destination tray and duplex. Does require opening the report to PrintPreview first then use DoCmd.PrintOut method.

[GraeagleBill]

I'll look into that. As long as setting the duplex property DOES NOT leave that setting as the DEFAULT then it would be okay. To do otherwise leaves the client un-aware of a change they'd likely not appreciate.
(I have to go to the client's office to test.)
Bill

[June7]

Example:

strPrinter = Application.Printer.DeviceName
    DoCmd.OpenReport strReport, acViewPreview, , "Submit.LabNum='" & strLabNum & "'", acWindowNormal, strMode
    If strPrinter Like "*Konica*" Then Reports(strReport).Printer.Duplex = acPRDPSimplex
    Reports(strReport).Printer.PaperBin = acPRBNAuto
    If Not strRDC Like "*X" And strPrinter Like "*Konica*" Then
        'Set the report destination paper bin to Tray 2 to print on yellow paper
         Reports(strReport).Printer.PaperBin = acPRBNLower
    End If
    If strPrinter Like "*Konica*" And booPage2 = True Then
        Reports(strReport).Printer.Duplex = acPRDPHorizontal
    End If
    'print page 1 of report if not Konica printer, otherwise print full report to Konica
    If intView = vbNo Then DoCmd.PrintOut acPages, 1, IIf(booPage2 = True And strPrinter Like "*Konica*", 2, 1)
    If strPrinter Like "*Konica*" Then Reports(strReport).Printer.Duplex = acPRDPSimplex
    Reports(strReport).Printer.PaperBin = acPRBNAuto
    'print page 2 of report if there is one and not Konica printer
    If intView = vbNo And booPage2 = True And Not strPrinter Like "*Konica*" Then
        If Not strPrinter Like "*Konica*" Then MsgBox "Add paper or turn sheet over to print on reverse then click OK.", vbApplicationModal, "Print"
        DoCmd.PrintOut acPages, 2, 2, , IIf(strPrinter Like "*Konica*", 1, 2)
    End If

[GraeagleBill]

Thanks June, I learn something new every day.
Bill