Printing Reports

[GGladu]

In my application a report is printed but for some reason it ejects a blank page first. The code is pretty simple. Can anyone tell me why or how to stop it?

Private Sub cmdPrint_Click()
On Error GoTo Err_cmdPrint_Click
    Dim stDocName As String
    stDocName = "rptPrintData"
    DoCmd.OpenReport stDocName, acPreview
Exit_cmdPrint_Click:
    Exit Sub
Err_cmdPrint_Click:
    MsgBox Err.Description
    Resume Exit_cmdPrint_Click
    
End Sub

 

[Joe4]

There is nothing in your code that would do that.
It would either be in the Report itself (maybe something like a Page Break at the top), or a Printer setting or Print Driver issue.
What happens if you Print the Report manually (without code)?

 

[GGladu]

There is nothing in your code that would do that.
It would either be in the Report itself (maybe something like a Page Break at the top), or a Printer setting or Print Driver issue.
What happens if you Print the Report manually (without code)?

Thanks but I changed the width of the page (from 7.6 to 7) and that took care of the problem

 

[Joe4]

Yes, that is a common cause. If the width of your page plus the size of the margins exceeds 8.5 inches, it will spill over to a second page.
So you either need to adjust the width, or the margins.
As you discovered, it had nothing to do with your VBA code (which was fine), but rather with the Report itself.