VBA Code to Select "Cancel" when "Printer Setup" dialog box appears

[sspatriots]

Can anyone tell me how I would get the "Cancel" button to select "Cancel" when the "Printer Setup" dialog box appears? I'm asking because I only want the "Print" window that has all the options for the Margins, Orientation and so on to appear.

When I use the following:

Application.Dialogs(xlDialogPrinterSetup).Show

A "Printer Setup" dialog box appears. Then I have to select "Cancel" in order to be taken to the "Print" screen next. Not sure if there is another way to bypass that "Printer Setup" dialog box or not.

Also, I want my code to set the print area to be the "Print Active Sheets" option.


Thank you, SS

 

[Jaafar Tribak]

Application.Dialogs(xlDialogPrint).Show always defaults to "Print Active Sheets" Isn't that what you want ?

 

[sspatriots]

Application.Dialogs(xlDialogPrint).Show always defaults to "Print Active Sheets" Isn't that what you want ?

No, because the only way out of that dialog box is either to print or cancel out. I don't want to print and I just want the setting in the file to be at "Print Active Sheets". So when the next person opens it, the setting will be correct and I don't have to print to make it that way. See post #10. Thanks, Steve

 

[Jaafar Tribak]

Application.Dialogs(xlDialogPrint).Show
If you Cancel the dialog , the "Print Active Sheets" always sticks as it is the default setting.

What you asked in post#10 will be difficult to achieve even using Microsoft Acceesibility.

Sendkeys is not reliable either

 

[Tetra201]

Maybe this:

Application.Dialogs(xlDialogPrint).Show Arg12:=2

1 = Selection, 3 = Entire workbook

 

[sspatriots]

Maybe this:

Application.Dialogs(xlDialogPrint).Show Arg12:=2

1 = Selection, 3 = Entire workbook

I will give it a try tomorrow. Thanks

 

[sspatriots]

Application.Dialogs(xlDialogPrint).Show
If you Cancel the dialog , the "Print Active Sheets" always sticks as it is the default setting.

What you asked in post#10 will be difficult to achieve even using Microsoft Acceesibility.

Sendkeys is not reliable either

I will try again tomorrow, but I'm pretty certain the setting didn't stick when I hit the Cancel button.