Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Print with sevral different print area's
Hi all,
I wonder would it be possible to printpreview several different print area's after using the [Print Preview] command from the menu without always phisicaly printing the second preview after closing [Close] it on the menu? I now get the first area previewed, close it, get the second area previewed, close it and than always physicaly prints no matter I press [CLOSE] I have code like this:- Private Sub Workbook_BeforePrint(Cancel As Boolean) 'First print area ActiveSheet.PageSetup.PrintArea = "$D$9:$I$25" ActiveWindow.SelectedSheets.PrintPreview 'Second print area ActiveSheet.PageSetup.PrintArea = "$A$1:$D$20" ActiveWindow.SelectedSheets.PrintPreview End Sub Thx, Ludovic |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Print with sevral different print area's
Don,
I put it like this (below) and get an error PrintPreview methode of Range class failed........? Private Sub Workbook_BeforePrint(Cancel As Boolean) PPV End Sub Sub PPV() Range("a1:b20").printpreview If InputBox("do you want other") = OK _ Then Range("d20:m20").printpreview End Sub Did I implement something wrong? Cheers, Ludovic "Don Guillett" schreef in bericht ... Try this idea Sub printpreview() Range("a1:b20").printpreview If InputBox("do you want other") = OK _ Then Range("l1:m20").printpreview End Sub -- Don Guillett Microsoft MVP Excel SalesAid Software "Vsn" <vsn_hotmail_kom wrote in message ... Hi all, I wonder would it be possible to printpreview several different print area's after using the [Print Preview] command from the menu without always phisicaly printing the second preview after closing [Close] it on the menu? I now get the first area previewed, close it, get the second area previewed, close it and than always physicaly prints no matter I press [CLOSE] I have code like this:- Private Sub Workbook_BeforePrint(Cancel As Boolean) 'First print area ActiveSheet.PageSetup.PrintArea = "$D$9:$I$25" ActiveWindow.SelectedSheets.PrintPreview 'Second print area ActiveSheet.PageSetup.PrintArea = "$A$1:$D$20" ActiveWindow.SelectedSheets.PrintPreview End Sub Thx, Ludovic |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Print and Print Preview Graphic Moving Resizing 2007/2003 | Excel Discussion (Misc queries) | |||
Macro to hide rows with a certain cell empty then set print area and print | Excel Programming | |||
Pivot Table macro to set print area and print details of drill down data | Excel Discussion (Misc queries) | |||
Active cell counting in particular print page (one sheet having different print area) | Excel Worksheet Functions | |||
Need Help w/ Print Macro to Print All Visible Sheets (including Charts) in a Workbook | Excel Programming |