VBA if cancelled don't print otherwise print

[afc171]

Hi guys,

What have a I messed here, it will cancel but wont print...

Sub PrintOut()

Application.ScreenUpdating = False

Application.Dialogs(xlDialogPrinterSetup).Show

If vbCancel Then
MsgBox "Cancelled"

Columns("F:H").Select
Selection.EntireColumn.Hidden = True

Columns("K").Select
Selection.EntireColumn.Hidden = True

ActiveSheet.PrintOut

Columns("F:H").Select
Selection.EntireColumn.Hidden = False

Columns("K").Select
Selection.EntireColumn.Hidden = False

    MsgBox "Printed"
Range("A2").Select

End Sub

 

[John_w]

Application.Dialogs(xlDialogPrinterSetup).Show returns False if Cancel is clicked.

Sub PrintOut()

    Application.ScreenUpdating = False
    
    If Application.Dialogs(xlDialogPrinterSetup).Show = False Then
    
        MsgBox "Cancelled"
    
    Else
    
        Columns("F:H").Select
        Selection.EntireColumn.Hidden = True
        
        Columns("K").Select
        Selection.EntireColumn.Hidden = True
        
        ActiveSheet.PrintOut
        
        Columns("F:H").Select
        Selection.EntireColumn.Hidden = False
        
        Columns("K").Select
        Selection.EntireColumn.Hidden = False
    
        MsgBox "Printed"
        Range("A2").Select
    
    End If

    Application.ScreenUpdating = True

End Sub

 

[afc171]

Thanks John