INTERCEPT the and of printout job

[luca90]

INTERCEPT the and of printout job and intercept if the printer have error during the job?

possible?

Private Sub PRINT_REPORT()

    Dim XLWB As Object, WS As Object, XLAPP As Object
    Set XLAPP = CreateObject("Excel.Application")
    Set XLWB = XLAPP.Workbooks.Open(FileName:=STRWB, Editable:=True)
    Set WS = XLWB.Worksheets("REPORT")
    WS.Range("B2:AZ51").ClearContents

    CONTA = 0

    With WS
        .Application.ScreenUpdating = False
        For K = 0 To UBound(strDBRows_ESTRAI, 2)
            .Cells(strDBRows_ESTRAI(3, K) + 1, strDBRows_ESTRAI(4, K) + 1) = "X"
            .Cells(strDBRows_ESTRAI(3, K) + 1, 52) = .Cells(strDBRows_ESTRAI(3, K) + 1, 52) + 1
            CONTA = CONTA + 1
            DoEvents
        Next K
        .Application.ScreenUpdating = True
        'IMPOSTAZIONI PAGINA DI STAMPA
        .PageSetup.CenterHeader = "REPORT OMBRELLONI DEL: " & Format(GIORNO, "DD/MM/YYYY") & " - (ZONA: " & DXSX & ")"
        .PageSetup.LeftFooter = "REPORT STAMPATO IL:  " & Format(Date, "DD/MM/YYYY")
        .PageSetup.RightFooter = "NR:  " & CONTA
        .PageSetup.PaperSize = vbPRPSA4
        'IMPOSTAZIONI PAGINA DI STAMPA
    End With


    XLAPP.Activesheet.PrintOut Copies:=1, Collate:=True

    Set WS = Nothing
    XLWB.Close SaveChanges:=False
    Set XLWB = Nothing
    XLAPP.Quit
    Set XLAPP = Nothing

End Sub

[westconn1]

XLAPP.Activesheet.PrintOut

why would you use the activesheet object when you already have a worksheet object of the sheet you want to print

WS.PrintOut Copies:=1, Collate:=True

[Zvoni]

INTERCEPT the and of printout job and intercept if the printer have error during the job?

possible?

Don't think so. IIRC, the Printing routines in Office-VBA are "shoot and forget"