Print with sevral different print area's

[Vsn]

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

 

[Don Guillett]

Try this idea
Sub printpreview()
Range("a1:b20").printpreview
If InputBox("do you want other") = OK _
Then Range("l1:m20").printpreview
End Sub

 

[Vsn]

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

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
(e-mail address removed)

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