Tidying my report

  • Thread starter Thread starter A Moloney
  • Start date Start date
A

A Moloney

Hi.
I have the following code on a command button that
automatically prints my report when clicked. Can i modify
this code to automatically print 2 copies of the report
and ignore any blank pages (as report fits on one page
but is printing a second blank page).

Private Sub Print10a_Click()
On Error GoTo Err_Print10a_Click

Dim stDocName As String
Dim strWhere As String
strWhere = "[Date]=#" & _
Me.Date & "#"
stDocName = "10aConfirmation"
DoCmd.OpenReport stDocName, acNormal, , strWhere

Exit_Print10a_Click:
Exit Sub

Err_Print10a_Click:
MsgBox Err.Description
Resume Exit_Print10a_Click

End Sub

Any help appreciated.
 
A simple way to print two copies is to simply repeat the line of code:

DoCmd.OpenReport stDocName, acNormal, , strWhere

Now, on the blank page, this is due to one of two possible reasons:
1. The report width in the design view is wider than the available print
width (total page width - margins), causing overflow to a second page, or
2. One of the report sections (most likely a footer or header section) has
its Force New Page property set to something other than None; reset to None.

HTH,
Nikos
 
Thank You so Much Nikos
-----Original Message-----
A simple way to print two copies is to simply repeat the line of code:

DoCmd.OpenReport stDocName, acNormal, , strWhere

Now, on the blank page, this is due to one of two possible reasons:
1. The report width in the design view is wider than the available print
width (total page width - margins), causing overflow to a second page, or
2. One of the report sections (most likely a footer or header section) has
its Force New Page property set to something other than None; reset to None.

HTH,
Nikos

Hi.
I have the following code on a command button that
automatically prints my report when clicked. Can i modify
this code to automatically print 2 copies of the report
and ignore any blank pages (as report fits on one page
but is printing a second blank page).

Private Sub Print10a_Click()
On Error GoTo Err_Print10a_Click

Dim stDocName As String
Dim strWhere As String
strWhere = "[Date]=#" & _
Me.Date & "#"
stDocName = "10aConfirmation"
DoCmd.OpenReport stDocName, acNormal, , strWhere

Exit_Print10a_Click:
Exit Sub

Err_Print10a_Click:
MsgBox Err.Description
Resume Exit_Print10a_Click

End Sub

Any help appreciated.
Click to expand...


.
Click to expand...
 
Back
Top