Print page 1 of a report

[Céline Brien]

Hi,
By clicking on a button in a form, I preview a report.
I would like to obtain the printing of the first page of the report.
The codes to preview are below.
Many thanks,
Céline
Using Access 97
------------------------------------------------

Private Sub ImprimerEPlaintes_Click()
On Error GoTo Err_ImprimerEPlaintes_Click


Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "EPlaintes"
stLinkCriteria = "[NoMembre]=" & Me![NoMembre]
DoCmd.OpenReport stDocName, acPreview, , stLinkCriteria


Exit_ImprimerEPlaintes_Click:
Exit Sub

Err_ImprimerEPlaintes_Click:
MsgBox Err.Description
Resume Exit_ImprimerEPlaintes_Click

End Sub

 

[fredg]

Hi,
By clicking on a button in a form, I preview a report.
I would like to obtain the printing of the first page of the report.
The codes to preview are below.
Many thanks,
Céline
Using Access 97
------------------------------------------------

Private Sub ImprimerEPlaintes_Click()
On Error GoTo Err_ImprimerEPlaintes_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "EPlaintes"
stLinkCriteria = "[NoMembre]=" & Me![NoMembre]
DoCmd.OpenReport stDocName, acPreview, , stLinkCriteria

Exit_ImprimerEPlaintes_Click:
Exit Sub

Err_ImprimerEPlaintes_Click:
MsgBox Err.Description
Resume Exit_ImprimerEPlaintes_Click

End Sub

Look up the PrintOut method in VBA help.

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "EPlaintes"
stLinkCriteria = "[NoMembre]=" & Me![NoMembre]
DoCmd.OpenReport stDocName, acPreview, , stLinkCriteria
DoCmd.PrintOut acPages, 1, 1
etc.

 

[Céline Brien]

Hi Fred,
It works !
Thank you.
PrintOut method. It is noted.
Have a good day.
Céline

Hi,
By clicking on a button in a form, I preview a report.
I would like to obtain the printing of the first page of the report.
The codes to preview are below.
Many thanks,
Céline
Using Access 97
------------------------------------------------

Private Sub ImprimerEPlaintes_Click()
On Error GoTo Err_ImprimerEPlaintes_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "EPlaintes"
stLinkCriteria = "[NoMembre]=" & Me![NoMembre]
DoCmd.OpenReport stDocName, acPreview, , stLinkCriteria

Exit_ImprimerEPlaintes_Click:
Exit Sub

Err_ImprimerEPlaintes_Click:
MsgBox Err.Description
Resume Exit_ImprimerEPlaintes_Click

End Sub

Look up the PrintOut method in VBA help.

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "EPlaintes"
stLinkCriteria = "[NoMembre]=" & Me![NoMembre]
DoCmd.OpenReport stDocName, acPreview, , stLinkCriteria
DoCmd.PrintOut acPages, 1, 1
etc.