print or no print /landscape

[Trevor3007]

hi

Sub rotasort()
'
' rotasort Macro
'

'
    Columns("A:C").Select
    Selection.EntireColumn.Hidden = True
    Range("D3:AI21").Select
    ActiveSheet.PageSetup.PrintArea = "$D$3:$AI$21"
    Range("AK23").Select
    Columns("D:D").ColumnWidth = 19.14
    Columns("D:D").ColumnWidth = 17.57
    Columns("D:D").ColumnWidth = 15
    Columns("D:D").Select
    With Selection
        .VerticalAlignment = xlBottom
        .WrapText = True
        .Orientation = 0
        .AddIndent = False
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Range("D3:AI22").Select
    ActiveSheet.PageSetup.PrintArea = ""
    ActiveSheet.PageSetup.PrintArea = "$D$3:$AI$22"
    ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
        :=True, IgnorePrintAreas:=False
End Sub

i use the above, but would like to place a 'yes / no' to print or not & want it to print out landscapetoo..
can some kind person sort for me?

thank you.

 

[Joe4]

Try this (I cleaned up your code a little too):

Sub rotasort()
'
' rotasort Macro
'

    Dim prt

    Columns("A:C").EntireColumn.Hidden = True

    With Columns("D:D")
        .ColumnWidth = 15
        .VerticalAlignment = xlBottom
        .WrapText = True
        .Orientation = 0
        .AddIndent = False
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With

    With ActiveSheet.PageSetup
        .PrintArea = "$D$3:$AI$22"
        .Orientation = xlLandscape
    End With
    
    prt = MsgBox("Do you wish to print the sheet now?", vbYesNo)
    If prt = vbYes Then
        ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
            :=True, IgnorePrintAreas:=False
    End If
    
End Sub

 

[Trevor3007]

brill U r

WAHOO...THANKS . great job.

 

[Joe4]

You are welcome.
Glad I was able to help!

 

[Trevor3007]

You are welcome.
Glad I was able to help!

Your help has alwas been very, very much apprecaited & I am sure it will continue to do so.
as are all the other kind 'mr excel's'