rosalie
12-04-2017, 10:07 AM
Hi everyone,
I am trying to export a specified range on my active sheet to pdf at the end of my module. I have the following code and whilst it works, I cannot figure out how to get the scaling to 1 page and at the moment the pdf is around 20 pages long:
Dim rngPDF as rng
Set rngPDF = ActiveSheet.Range(Cells(1, 1), Cells((UBound(LoopList) + 6 + intSignalCount), 1542))
With ActiveSheet.PageSetup
.PrintArea = rngPDF
.FitToPagesTall = 1
.FitToPagesWide = 1
.Orientation = xlLandscape
End With
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="P:\Southampton\TTS\M2M STV plots\" & strSaveDate & "2.pdf", IgnorePrintAreas:=False
does anyone know how I can scale to 1 page??
Many thanks in advance
Rosalie
I am trying to export a specified range on my active sheet to pdf at the end of my module. I have the following code and whilst it works, I cannot figure out how to get the scaling to 1 page and at the moment the pdf is around 20 pages long:
Dim rngPDF as rng
Set rngPDF = ActiveSheet.Range(Cells(1, 1), Cells((UBound(LoopList) + 6 + intSignalCount), 1542))
With ActiveSheet.PageSetup
.PrintArea = rngPDF
.FitToPagesTall = 1
.FitToPagesWide = 1
.Orientation = xlLandscape
End With
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="P:\Southampton\TTS\M2M STV plots\" & strSaveDate & "2.pdf", IgnorePrintAreas:=False
does anyone know how I can scale to 1 page??
Many thanks in advance
Rosalie