Print preview script halts

[Hidden Dan]

Friends,

I got this code to enable Print Preview of selected range. However, if pressing 'Close Preview' or even finishing printing I obtain an error. So apparently code contains a missing link.

I do need Print Preview dialogs because user should be able to modify printing options.

Sub Print_Range()

    With ActiveSheet.PrintPreview


        .PrintArea = "MyDuoRange"
        .Orientation = xlLandscape
        .PrintTitleRows = "$1:$2"
        
    End With
        
End Sub

What should be added to this code to make it run well ?


Thanks,
Dan

 

[Hidden Dan]

Solved

Sub Print_Range()


With ActiveSheet
    .PageSetup.PrintArea = "Range_complete"
End With


Application.Dialogs(xlDialogPrintPreview).Show
        
End Sub