Καλημέρα σε όλους σας
Φίλτατε Τάσο, η ρουτίνα που πρότεινες στον ΔΗΜΟ, σε μένα δουλεύει (Access 2007). Θα μου φανεί λοιπόν χρήσιμη σε όλες τις εκθέσεις.
Θερμά ευχαριστώ.

Σας παρουσιάζω πως χρησιμοποιώ -πλέον- την ρουτίνα παραμετρικά. Μορφοποίησα το υλικό σε Public sub και το έβαλα στο φάκελο των modules.

Public Sub Εκτυπωτη(ByVal ΑΝΑΦΟΡΑ As String)
On Error GoTo Exithere
If GetObject("winmgmts:\\.\root\cimv2"). _
ExecQuery("Select * from Win32_Printer Where Name='" _
& Printer.DeviceName & _
"' And (WorkOffline=True Or PrinterStatus < 3)").Count = 0 Then
MsgBox "Μπορώ να εκτυπώσω !"
DoCmd.OpenReport ΑΝΑΦΟΡΑ, acNormal
Else
MsgBox "Δεν βρίσκω εκτυπωτή !", vbInformation, "ΕΛΕΓΧΟΣ"
End If
Exithere:
If Err Then MsgBox Err & " " & Err.Description, vbExclamation, "Λάθος !"

End Sub

Έστω τώρα οτι θέλω να εκτυπωθεί η αναφορά 'ΑΔΕΙΑ'. Γράφω κάτω απο το κουμπί Εντολή49

Private Sub Εντολή49_Click()
Εκτυπωτη "ΑΔΕΙΑ"
End Sub

Ο Meteora