VBA code to print selection on one page

[alang84]

I would like to have a macro print all data i select on one page. Anyone have any ideas?

 

[Joe4]

Try this:

Sub MyPrint()
    ActiveSheet.PageSetup.PrintArea = Selection.Address
    With ActiveSheet.PageSetup
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    End With
    Selection.PrintOut Copies:=1
End Sub

 

[alang84]

Try this:

Sub MyPrint()
    ActiveSheet.PageSetup.PrintArea = Selection.Address
    With ActiveSheet.PageSetup
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    End With
    Selection.PrintOut Copies:=1
End Sub

this works beautifully. thanks so much for your assistance.

 

[Joe4]

You are welcome.