Add Page break in PDF Creation VBA

[AddyBadd]

Hello

Could someone please advise how I can make a teo page pdf from my code:

Sub save_range_as_pdf()

Dim pdf_range As Range
Dim ws As Worksheet
Dim ID As String


Set ws = ThisWorkbook.Sheets("Pick")
Set pdf_range = ws.Range("B2:F50")

ID = Range("f2").Text
ID2 = Range("f5").Text

ws.PageSetup.CenterHorizontally = True
ws.PageSetup.CenterVertically = True

pdf_range.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:="C:\PickNotes\" + ID + " " + ID2 + " (" + Format(Now(), "dd.mm.yy") + ") " + ".pdf", _
OpenAfterPublish:=True

End Sub

It works as is on my computer but when my colleague does it it cuts through an image when creating two pages. So I would like to add a page break in row 25.

Thanks

Addy

 

[rakesh seebaruth]

To create a two page PDF from your code, you can add a page break in row 25. To do so, add the following code to your existing code before the End Sub line:

ws.HPageBreaks.Add before:=ws.Range("B25")

The first line of this code adds a horizontal page break before row 25. This will ensure that the PDF will be split into two pages, with the first page ending at row 25.