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
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