vba code: save each hpagebreak as pdf with cell.value filename

[shoaibasghar_s]

i have a sheet with horizontal pagebreaks set correctly, i want to save each pagebreak as separate pdf file, and name of file be the text in first cell on each page. i know how to save page as pdf, i need to know how to print at each horizontal pagebreak, and how to select first cell after each hpagebreak.

thnx

 

[shoaibasghar_s]

ok so i have managed it on my own but with one minor problem

my code is

Sub pdf_level_transmitter()
Dim HPB As HPageBreak
Dim RW As Long
Dim rr As Range
If ActiveSheet.HPageBreaks.Count = 0 Then
MsgBox "There are no HPageBreaks"
Exit Sub
End If

With Application
.ScreenUpdating = False
.EnableEvents = False
End With
RW = 2
For Each HPB In ActiveSheet.HPageBreaks
If HPB.Type = xlPageBreakManual Then

strDir = "C:\Users\SA\Desktop\" & ActiveSheet.Name
ChDir strDir
filesavename = "3-" & ActiveSheet.Rows(RW).Columns(19).Value
Set rr = Range(ActiveSheet.Rows(RW).Columns(2), ActiveSheet.Rows(HPB.Location.Row - 1).Columns(42))
rr.ExportAsFixedFormat Type:=xlTypePDF, Filename:=filesavename, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False

End If
RW = HPB.Location.Row
Next


End Sub

problem with this code is that it does not save last page, so i had to add an extra pagebreak. how can i eliminate this..?

 

[shoaibasghar_s]

anyone out there!!!!!!