printer macro

[somersault]

Hi,

I got this code from one of your threads.
application.Dialogs(xlDialogPrinterSetup).Show

I am trying to use this code but don't know how to use the OK, Cancel & Set-up buttons selection after this.

Could anyone pls guide me?

Thanks in advance

 

[VoG]

Something like this

Sub TestPrint()
Dim bResponse As Boolean
bResponse = Application.Dialogs(xlDialogPrinterSetup).Show
If bResponse = False Then
    MsgBox "User cancelled"
    Exit Sub
End If
ActiveSheet.PrintOut
End Sub

 

[somersault]

Something like this

Sub TestPrint()
Dim bResponse As Boolean
bResponse = Application.Dialogs(xlDialogPrinterSetup).Show
If bResponse = False Then
    MsgBox "User cancelled"
    Exit Sub
End If
ActiveSheet.PrintOut
End Sub

This is fantastic.. Thank you..
One more question : Do I need to put a VBA code for setting options changed while the printer dialog box is open? Will default excel save this for me? (Case: i wanted to compel users only to take back to back (2sided prints))

 

[VoG]

Excel should save the printer settings.