Print report of the selected form record [Solved]

[krasbauer]

Hi !

So i have a form where i fill some parameters and a report is generated

My probleme is, am using a printing button, that show all the reports plus a printing options window where i have to chose the number of the report i want to print

For instance if i want to print the record 122 i would have to see the difference between the last record and the 122....for instance 130-122= 8, so i print the 9th page.

You might have noticed how annoying that is ! what i want is a button that automatically prints the report of the form record am currently on or selecting...or maybe one that asks for the Primary key of the record to print its report.



Thank you

[ItsMe]

You can use VBA to apply criteria to the Filter property of a report and send it directly to the printer. You just need to define the criteria using variables, like values of controls in your form.

So something like

DoCmd.OpenReport "ReportName", , , "FieldName='" & Me.ControlName.Value & "'"
'or for Numeric
DoCmd.OpenReport "ReportName", , , "FieldName=" & Me.ControlName.Value & ""

[krasbauer]

Hi !
Thanx for the tip, so i was working on something very similar :

DoCmd.OpenReport "rptEmployeeDetails", acViewPreview, , _
                 "[lngEmpID]=Forms!frmEmployee!lngEmpID"

anything i need to correct ? and by the way how do i add this vba to a button all i can add to buttons are macros !

Thanx again

[ItsMe]

That looks good to me. You can create a Click Event sub procedure from the Property Sheet while in design view of your form. With the command button selected, look under the Event tab of the property sheet. Locate the On Click event and click on the ellipses. Then, select Code Builder. The VBA editor will open and place your cursor where your code needs to be placed. Place your code just before the End Sub termination line.

Here is a picture of the ellipses button for adding a RowSource to a combo. You want the On Click event under the Event tab.

[krasbauer]

HI !

It worked perfectly ! i just click and it automatically prints the report of the record shown on screen !

Private Sub Aperçu_certificat_Click()

DoCmd.OpenReport "Certificat_phytosanitaire_importation", , , _
                 "[N°]=Forms!Formulaire_certificats_phytosanitaire!N°"
                 
End Sub

Ok so my next question is how do i make it print 2 copies instead of just one
And by the way dude, many thanks ! that helped a lot !

PS : i noticed that command has an open argument possibility at the end, so i can add a copies=4 i guess ?

[ItsMe]

...how do i make it print 2 copies...

Duplicate the code that is within the click event sub procedure. As an example ...

Private Sub Aperçu_certificat_Click()
DoCmd.OpenReport "rptEmployeeDetails", acViewPreview, , _
                 "[lngEmpID]=Forms!frmEmployee!lngEmpID"

DoCmd.OpenReport "rptEmployeeDetails", acViewPreview, , _
                 "[lngEmpID]=Forms!frmEmployee!lngEmpID"
End Sub

If you need to print more than two copies, like 4 or more copies, I would recommend using code that fires a single statement multiple times. So that code would look different if you need to print many copies.

.

[krasbauer]

Hahahaha thats what i did thanx by the way, and sorry for the trouble !

[ItsMe]

No trouble at all and welcome to the forum.