In a Macro you have a action called PrintOut, you can use this to specify which pages to print. It will print out the current active report, however this will only work IF you know when the report has 2 pages.
To determend IF the report has a page 2 you can't use macros but in VBA it's possible.
To get a pagecount from you report do this:
1. Create a textbox in you reportsfooter and set these properties:
TextboxName: txtpages
ControlSource: =[Pages]
Visible: False
2. Open the codewindow (press Ctrl+G) and paste in this code:
Code:
Option Compare Database
Option Explicit
Private Sub Report_NoData(Cancel As Integer)
Cancel = True
End Sub
Private Sub Report_Page()
' Pass the pagecount to a Public Variabel called "gPage"
gPage = Me!txtpage
End Sub
3. Compile and save report
4. Create a standard Module and paste this code in it:
Code:
Option Compare Database
Option Explicit
Public gPage As Integer 'public variable to hold the pagecount of the report.
Public Function PrintPages()
On Error Resume Next
gPage = 0 ' set public variable to 0
DoCmd.OpenReport "NameOfReport", acViewPreview, "", "", acNormal
If Err.Number = 2501 Then Err.Clear 'If NoData then exit
DoEvents ' pause to get a pagecount from the report
DoCmd.PrintOut acPages, gPage, gPage, acMedium
' clean up after print
DoCmd.Close acReport, "NameOfReport"
gPage = 0 ' reset public variabel
End Function
5. Compile and save module, name the module "BASPrint"
( to compile click on "Debug" on the menu and you find "Compile")
To use this function call it from a macro or a form event. If you have a button on a from which you use to print from, open the buttons properties and in the click_event type in: =PrintPages()
This function works like this:
1. When you click on you button the function opens the report and wait until the report is done formatting.
2. The Sub Report_Page() passes the pagecount to a holding variabel "gPage"
3. The function now moves on to the printing and closes the report when done.
As you can see this prints the LAST page of your report, in you case either 1 or 2, but if you get a 3. page the this is the page which gets printed.
