I have a button on a form. Pushing the button starts printing a report containing the current record that was on the form.
This record has many fields, so that it prints about 4 pages of text.
It is only the first page that i want to be printed.
Code is like this:
Private Sub cmd_Controle1Druk_Click()
On Error GoTo Err_cmd_Controle1Druk_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "rpt_Controle1"
stLinkCriteria = "[vld_Id]=" & Me![vld_Id1]
DoCmd.OpenReport stDocName, acPreview, stLinkCriteria
Exit_cmd_Controle1Druk_Click:
Exit Sub
Err_cmd_Controle1Druk_Click:
MsgBox Err.Description
Resume Exit_cmd_Controle1Druk_Click
End Sub
This record has many fields, so that it prints about 4 pages of text.
It is only the first page that i want to be printed.
Code is like this:
Private Sub cmd_Controle1Druk_Click()
On Error GoTo Err_cmd_Controle1Druk_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "rpt_Controle1"
stLinkCriteria = "[vld_Id]=" & Me![vld_Id1]
DoCmd.OpenReport stDocName, acPreview, stLinkCriteria
Exit_cmd_Controle1Druk_Click:
Exit Sub
Err_cmd_Controle1Druk_Click:
MsgBox Err.Description
Resume Exit_cmd_Controle1Druk_Click
End Sub