trying to save Print Preview as PDF

[jamtay317]

I'm trying to save Print Preview as PDF, so that I can email billing invoices to people. I'm not sure how to do this is there anyway to help with this? I'm using excel 2010 .
all help is appreciated

thanks James

 

[jolivanes]

How about printing it to PDF?
I don't have 2010 but in 2007 you can save it as PDF.
Office Button - Save As and select PDF

 

[jamtay317]

No, That will not separate the pages that I have set up for the printer

 

[jolivanes]

Do you want to print (save) individual pages from a large selection to PDF instead of all in one?

 

[jamtay317]

yes, but I would like to just add a button that saves the print preview (the separate pages) as .pdf so I still can print them out on the printer too.

 

[jolivanes]

James
Try this on a copy of your workbook.
Change the Folder and Name to be saved.

Sub Print_Individual_Pages_James()
    Dim iHpBreaks As Integer, iVBreaks As Integer
    Dim iTotPages As Integer, a As Long, j As Long
    iHpBreaks = ActiveSheet.HPageBreaks.Count + 1
    iVBreaks = ActiveSheet.VPageBreaks.Count + 1
    iTotPages = iHpBreaks * iVBreaks
    j = 1
    For a = 1 To iTotPages
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
            "C:\Temp PDFs\This is Sheet" & j & ".pdf", _
                Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
                    :=False, From:=a, To:=a, OpenAfterPublish:=False
        j = j + 1
    Next
End Sub