Print a report from a form

[Kysteratwork]

Hi all,

I would like to print a report upon clicking button in a form.

The code I have so far is:

Private Sub PrintReport_Click()
On Error GoTo Err_PrintReport_Click

    Dim stDocName As String
    Dim MyReport As Report

    stDocName = "RptMeetings2005"
    Set MyReport = Report!RptMeetings2005
    DoCmd.SelectObject acReport, stDocName, True
    DoCmd.PrintOut
    DoCmd.SelectObject acReport, MyReport.Name, False

Exit_PrintReport_Click:
    Exit Sub

Err_PrintReport_Click:
    MsgBox Err.Description
    Resume Exit_PrintReport_Click
    
End Sub

But I am stuck at this point: Set MyReport = Report!RptMeetings2005, which clearly is wrong what I did.

Can you help me?

Kysteratwork

 

[ZmrAbdulla]

You could create commadn button through the wizard!!
OK here is it...

[COLOR=blue]Private Sub cmdPrintReport_Click()
On Error GoTo Err_cmdPrintReport_Click
    Dim stDocName As String
    stDocName = "RptMeetings2005"
    DoCmd.OpenReport stDocName, acNormal
Exit_cmdPrintReport_Click:
    Exit Sub
Err_cmdPrintReport_Click:
    MsgBox Err.Description
    Resume Exit_cmdPrintReport_Click    
End Sub
[/color]

BTW the code DoCmd.PrintOut will print current form not report or any other object



Zameer Abdulla
[sub]Jack of Visual Basic Programming, Master in Dining & Sleeping[/sub]
Visit Me

 

[Kysteratwork]

Of course. I was trying to change the code from the Print Form wizzard.

Thank you

Kysteratwork