Excel Macro Print to PDF

[mazher]

Hi ALL,

I am using this macro to print the invoices in the separate PDF file.

Please can someone modify to code to print the all invoices in one PDF file.

Sub PrinttoPdf1()
Dim i As Integer
Dim Startrange As Integer
Dim Endrange As Integer
Dim PSh As Worksheet
Dim PPath As String

On Error GoTo errHandler


Set PSh = Sheets("Inv BCC")
Startrange = PSh.Range("M2").Value
Endrange = PSh.Range("N2").Value
PPath = PSh.Range("o2").Value

For i = Startrange To Endrange

PSh.Range("h14").Value = PSh.Range("n12").Offset(i, 0).Value
Printfile = PSh.Range("h14").Value

PSh.Range("A1:I37").ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=PPath & Printfile & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False


Next i

exitHandler:
Exit Sub
errHandler:
MsgBox "Could not create PDF file" & vbNewLine & vbNewLine & "Please check the input parameters & print location" & vbNewLine & "Please double check if the file location exists and is in correct format" & vbNewLine & vbNewLine & "C:\PDF Export\May2018"
Resume exitHandler
End Sub

 

[Hjemmet]

Re: Excel Macro Print to PDF -VBA Gurus Help

Try this Code

Sub TurnTabIntoPDF1()
'
' TurnTabIntoPDF Macro
'
Range("A1:T22").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$T$22"
With ActiveSheet.PageSetup
.Orientation = xlLandscape
.PaperSize = xlPaperA5
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
With ActiveSheet
.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
ActiveWorkbook.Path & "" & .Range("Q5") & " " & .Range("O5").Value & " " & .Range("E6").Value & " " & .Range("P6").Value, Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
End With
End Sub

 

[Hjemmet]

Re: Excel Macro Print to PDF -VBA Gurus Help

Try this Code

Sub TurnTabIntoPDF1()
'
' TurnTabIntoPDF Macro
'
Range("A1:T22").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$T$22"
With ActiveSheet.PageSetup
.Orientation = xlLandscape
.PaperSize = xlPaperA5
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
With ActiveSheet
.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
ActiveWorkbook.Path & "" & .Range("Q5") & " " & .Range("O5").Value & " " & .Range("E6").Value & " " & .Range("P6").Value, Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
End With
End Sub

Try this the fist on is with data in cell's

 

[mazher]

Re: Excel Macro Print to PDF -VBA Gurus Help

Try this the fist on is with data in cell's

Thanks Hjemmet,

I don't know what the macro is doing but its not working.

The code I have posted is making the separate pdf files, I just want to combine all the pdf files.

Hopefully some can give me a solution.

Thanks

 

[Hjemmet]

Re: Excel Macro Print to PDF -VBA Gurus Help

Sorry havent read that part where you Combine Pdf files

 

[mazher]

Re: Excel Macro Print to PDF -VBA Gurus Help

Please can someone help me that.

Thanks