Print range and show printer box

[mecerrato]

I have been trying many methods but have not been able to accomplish something very simple.
I need to define the range and show the printer selection box, that's it, can someone help?

Here are some of the things I have tried:

Sub Print1()
    Range ("B1:E36") '.PrintPreview
    Application.Dialogs(xlDialogPrinterSetup).Show
    Range("C10").Select
End Sub
Sub Print2()
With Sheet1
.PageSetup.PrintArea = "B1:E36"
.PrintOut
End With
Range("C10").Select
End Sub

 

[dreid1011]

I have been trying many methods but have not been able to accomplish something very simple.
I need to define the range and show the printer selection box, that's it, can someone help?

Here are some of the things I have tried:

Sub Print1()
    Range ("B1:E36") '.PrintPreview
    Application.Dialogs(xlDialogPrinterSetup).Show
    Range("C10").Select
End Sub
Sub Print2()
With Sheet1
.PageSetup.PrintArea = "B1:E36"
.PrintOut
End With
Range("C10").Select
End Sub

Maybe with your second piece of code:

Sub Print2()
With Sheet1
.PageSetup.PrintArea = Range("B1:E36").Address
.PrintOut
End With
Range("C10").Select
End Sub