Hi All,
I'm trying to print multiple ranges into one pdf document. I'm having a difficult time trying to do this because the ranges are in diffrent sheets in the same workbook. I would appreciate any feed back. I;ve attacted a sample of the code I'm working one.
Sub MyPDFRangePrint()
Dim rng As Variant
Dim mypdf As String
mypdf = "C:\Mo.pdf"
Set rng = Range("PackageCover_Page", "MacroHdg_Print")
rng.Select
Selection.PrintOut Copies:=1, ActivePrinter:="Acrobat PDFWriter on LPT1:", prtofilename:=mypdf
End Sub
I'm trying to print multiple ranges into one pdf document. I'm having a difficult time trying to do this because the ranges are in diffrent sheets in the same workbook. I would appreciate any feed back. I;ve attacted a sample of the code I'm working one.
Sub MyPDFRangePrint()
Dim rng As Variant
Dim mypdf As String
mypdf = "C:\Mo.pdf"
Set rng = Range("PackageCover_Page", "MacroHdg_Print")
rng.Select
Selection.PrintOut Copies:=1, ActivePrinter:="Acrobat PDFWriter on LPT1:", prtofilename:=mypdf
End Sub
