Variable printarea problem

[bak]

I've a macro for set printarea dynamic per sheet. But I can't get it fixed

What is the problem?http://rapidshare.com/files/451265612/test.xlsm

 

[GlennUK]

Post your macro code here ... not all of us can access such links at work, due to security settings.

 

[bak]

How can I set this for multiple pages? It works now only for one page on the sheet it must be two pages

Dim Rng As String
Dim wks As Worksheet
Dim sh As Worksheet
Dim Arr() As String
Dim N As Integer
Dim ws As Worksheet

For Each sh In ActiveWorkbook.Worksheets
If sh.Visible = True And sh.Range("M1").Value = "ja" Then
With sh.PageSetup
On Error Resume Next
lnglastrow = 10
lnglastrow = Application.Evaluate("=MAX(IF(A1:N299<>"""",ROW(A1:N299),10))") 'laatst gebruikte rij voor kolommen A tot N en kijken tot rij 1000
On Error GoTo 0
.PrintArea = "$A$2:$N$" & lnglastrow
.FitToPagesWide = 1
.FitToPagesTall = 1
'sh.PrintPreview
End With
End If
Next
N = 0
For Each sh In ActiveWorkbook.Worksheets
If sh.Visible = xlSheetVisible And sh.Range("M1").Value = "ja" Then
N = N + 1
ReDim Preserve Arr(1 To N)
Arr(N) = sh.Name
End If
Next
If N = 0 Then MsgBox "niets te printen": Exit Sub
With ActiveWorkbook
.Worksheets(Arr).PrintPreview
End With
End Sub

 

[GlennUK]

Are you saying that you don't want your print out to be 1 page tall?

 

[bak]

No I have 2 print area's but they are variable. I have to set the printarea of the 2 pages dynamic

 

[GlennUK]

What are your print areas then?

 

[bak]

Range dynamic:
"$AF$2:$AU$"
"$AW$2:$BG$"

 

[GlennUK]

then the printarea should be set like this:

PrintArea = "$AF$2:$AU$" & lnglastrow & ",$AW$2:$BG$" & lnglastrow

 

[bak]

lnglastrow isn't the same for both pages. I need two times the lnglastrow function in it

 

[GlennUK]

And you don't know how to do that? Is that the case? From your macro I'd have thought that you did know how to do that ..... or am I misunderstanding something?