| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Macro to print plus list options?
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 |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Macro to print plus list options?
Application.Dialogs(xlDialogPageSetup).Show
"Marc T" wrote: 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 |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Macro to print plus list options?
Thanks for that, works a treat!
Marc "dmoney" wrote: Application.Dialogs(xlDialogPageSetup).Show "Marc T" wrote: 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 |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| write a macro to print to search a list and print certain workshee | Excel Programming | |||
| Print macro to bring up print options | Excel Programming | |||
| Print macro to bring up print options | Excel Programming | |||
| What are the options in the print macro? | Excel Programming | |||
| filter: how to print filter list options in dropdown box | Excel Discussion (Misc queries) | |||
Linear Mode
