Forum - Εμφάνιση ενός μόνο μηνύματος

#4 24-08-09, 21:33

Καλησπέρα σε όλους!
Αγαπητέ φίλε Δήμο,
δεν μπορώ να σου εγγθηυώ για τα αποτελέσματα του παρακάτω κώδικα αφού δεν γνωρίζω
το περιβάλλον εργασίας σου.

Αντιστοίχησε τον λοιπόν σε ένα κουμπί στη φόρμα σου, δοκίμασε και ενημέρωσε μας:

Κώδικας:

Option Compare Database
Option Explicit

Private Sub Command1_Click()
    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 "Can print"
        'DoCmd.OpenReport "myReport", acNormal
    Else
        MsgBox "Printer is not ready!", vbInformation, "Info"
    End If
Exithere:
    If Err Then MsgBox Err & " " & Err.Description, vbExclamation, "Error!"
End Sub

Φιλικά

Θέμα: ΕΛΕΓΧΟ ΤΗΣ ΚΑΤΑΣΤΑΣΗΣ ΤΟΥ ΕΚΤΥΠΩΤΗ ΜΕ VB