Hi,
I use the following code to create PDFs from worksheets...Aber creasting the first PDF sucessfully, the error box "Runtime error 9. suscript out of range" pops up before the second pdf is created.
Any ideas what I did wrong? (Sry in case it is an obvious soultion, tried more or less everything before this post)...When clicking debug, Worksheets(sheetName).PageSetup.PrintArea = "" is marked yellow.
Cheers,
Konstantin
I use the following code to create PDFs from worksheets...Aber creasting the first PDF sucessfully, the error box "Runtime error 9. suscript out of range" pops up before the second pdf is created.
Any ideas what I did wrong? (Sry in case it is an obvious soultion, tried more or less everything before this post)...When clicking debug, Worksheets(sheetName).PageSetup.PrintArea = "" is marked yellow.
Code:
Sub pdfandemail()
For Each c In Range("clients")
Dim lLR As Long
Dim sheetName As String
sheetName = c.Value
Dim lNumberOfRowsPerSheet As Integer
Worksheets(sheetName).PageSetup.PrintArea = ""
Worksheets(sheetName).ResetAllPageBreaks
lNumberOfRowsPerSheet = 46 '<---- Change as required
lLR = Range("B" & Rows.count).End(xlUp).Row - 1
'lLR = 60
Worksheets(sheetName).PageSetup.PrintArea = "$B$2:$AB$100"
PrintTitleRows = "A8:S9"
For l = lNumberOfRowsPerSheet + 1 To ActiveSheet.UsedRange.Rows.count Step lNumberOfRowsPerSheet
Worksheets(sheetName).HPageBreaks.Add Before:=Range("A" & l)
Next
Worksheets(sheetName).PageSetup.Zoom = 50
Worksheets(sheetName).Range("A3:S" & lLR).ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:= _
"\\YYY\XXXX\Desktop\XXXX\" & sheetName & ".pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
Next c
End Sub
Cheers,
Konstantin