VBA printer code help needed!

[Javi]

The below code opens up the printpreview window. This does not allow to select the correct (or change) printer it will automatic use the default printer.

Is there a way for the code to open the print window so I can change the printer and select number of copies?

Sub Print_Button()
Dim ws As Worksheet, cell As Range
Set ws = Sheets("main")
Set cell = Range("g2000").End(xlUp)
Do Until cell.Value <> ""
Set cell = cell.Offset(-1, 0)
Loop
ws.PageSetup.PrintArea = ("A2:" & cell.Address)
ws.PrintPreview
End Sub

 

[repairman615]

Hello,

maybe this line will help you:

<font face=Courier New><SPAN style="color:#00007F">Sub</SPAN> ShowPrintDialog()<br>    Application.Dialogs(xlDialogPrint).Show<br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN></FONT>

 

[Javi]

Worked perfectly THANK YOU!!1

 

[repairman615]

Your Welcome!