Print Query from form

[Michael Abrams]

(Access 2003)
I am probably just doubting myself, but this code does what i want it to, but just doesn't seem 'elegant'.

I want to print the results of "Query1" using a button on a form.

Code: Select all

Private Sub Command0_Click()
On Error GoTo Err_Command0_Click

    Dim stDocName As String

    stDocName = "Query1"
    DoCmd.OpenQuery stDocName, acNormal, acEdit
    DoCmd.PrintOut
    DoCmd.Close

Exit_Command0_Click:
    Exit Sub

Err_Command0_Click:
    MsgBox Err.Description
    Resume Exit_Command0_Click

End Sub

What are your thoughts of the code?

Michael

[HansV]

It can be done this way, but a more "usual" approach would be to create a report based on the query, and to print that:

Code: Select all

Private Sub Command0_Click()
    On Error GoTo Err_Command0_Click
    DoCmd.OpenReport "rptBasedOnQuery1"
    Exit Sub

Err_Command0_Click:
    If Err <> 2501 Then
        MsgBox Err.Description, vbExclamation
    End If
End Sub

Substitute the name of your report for rptReportBasedOnQuery1.

[Michael Abrams]

Hans,

Same old story here - the suits want to print the query - I explained a report is more appropriate, but.....................

Thanks for the validation !!

Michael