How to cancel printing?

[ljubo_gr]

Hi,
I have code which display printers available. I need it because, sometimes i print in .pdf, so VBA code cannot detect phisically atached printer. When printer window is shown i cannot cancel or close window, it print whatever i click
Thanks in advance dear excel master!!

Sub Ispis_Visina()
        On Error GoTo Greh
        Application.ScreenUpdating = False
        Run ([Macro1_SORTIRAJ_VISINE()])
        ThisWorkbook.Worksheets("Visine").Range("i2:L12").Select
        Application.Dialogs(xlDialogPrinterSetup).Show
        Selection.PrintOut Preview:=False
        ThisWorkbook.Worksheets("Visine").Range("A1").Select

Greh:
    Exit Sub
End Sub

 

[Tinbendr]

See if this works for you.

Sub Ispis_Visina()
        Dim DP As Dialog
        On Error GoTo Greh
        Application.ScreenUpdating = False
        Run ([Macro1_SORTIRAJ_VISINE()])
        Set DP = Application.Dialogs(xlDialogPrinterSetup)
        With DP
            If .Show = -1 Then
                ThisWorkbook.Worksheets("Visine").Range("i2:L12").PrintOut Preview:=False
                ThisWorkbook.Worksheets("Visine").Range("A1").Select
            End If
        End With
Greh:
    Exit Sub
End Sub

 

[ljubo_gr]

Yes, thanks from bottom of my heart!! Sorry for late reply