Macro to print plus list options?

M

Marc T

Hi,

I've used the following code in a worksheet to bring up a printer dialog box:

Sub PrintGraphs()

ActiveSheet.PageSetup.PrintArea = "$1:$79"
ActiveSheet.PageSetup.PaperSize = xlPaperA3


Dim ActPrinter As String
Dim Answer As Boolean

With Application
ActPrinter = .ActivePrinter
Answer = .Dialogs(xlDialogPrinterSetup).Show
End With

If Answer = False Then
Exit Sub
Else

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

End If

Application.ActivePrinter = ActPrinter


Is there any way to add the ability to show print options after selecting a
printer, such as paper size, portrait/landscape or number of copies?

Many thanks!
Marc
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads


Top