Print macro to bring up print options

[Nelly]

Hi probably a stupid question but did know how to do this. What macro do I
need to bring up the printer dialog box? I have one that just prints but
need to change paper type.

Thanks in advance
Nelly

 

[FSt1]

hi
there are a number of printer dialog boxes but the code to call any dialog
is the same'
Application.Dialogs(xlDialogPageSetup).Show
the above lets you change paper size. i think. if not then curse my foul
memory and try one of these......
xldialogprintersetup
xldialogprintpreview
xldialogPrint
i think that's it.

Regards
FSt1

 

[JLGWhiz]

Sub kl()
prtSetUp = Application.Dialogs(xlDialogPrintPreview).Show
End Sub

 

[Don]

Hi probably a stupid question but did know how to do this. What macro do I
need to bring up the printer dialog box? I have one that just prints but
need to change paper type.

Thanks in advance
Nelly

Application.Dialogs(xlDialogPrint).Show

 

[JLGWhiz]

You can probably do what you want with:

ActiveSheet.PrintOut(Preview:=True)

 

[JLGWhiz]

Use it without parentheses

ActiveSheet.PrintOut Preview:=True

 

[Nelly]

Thanks for all the relies your stars ******

Use it without parentheses

ActiveSheet.PrintOut Preview:=True