topic How to create PDF in landscape view using VBA? in VBA Forum

How to create PDF in landscape view using VBA?

shuaib_cad — Mon, 25 Jan 2021 11:40:52 GMT

Hi!

I am currently using the below code for creating PDF through VBA. The drawing layout is right, the only issue is I am getting the PDF view in portrait instead of landscape.

ThisDrawing.ActiveLayout.UseStandardScale = True
ThisDrawing.ActiveLayout.StandardScale = acScaleToFit
ThisDrawingActiveLayout.ConfigName = "PDF-XChange 4.0 Lite"
ThisDrawing.ActiveLayout.CanonicalMediaName = "Letter"
ThisDrawing.ActiveLayout.PlotRotation = ac90degrees
ThisDrawing.ActiveLayout.PlotType = acExtents
ThisDrawing.ActiveLayout.CenterPlot = True
ThisDrawing.Plot.PlotToDevice

Please help me with the code.

Regards,

Mohammed Shuaib

Re: How to create PDF in landscape view using VBA?

grobnik — Mon, 25 Jan 2021 12:21:38 GMT

Did you try to chnge this option ?

ThisDrawing.ActiveLayout.PlotRotation = ac90degrees with ac0degrees

Re: How to create PDF in landscape view using VBA?

shuaib_cad — Mon, 25 Jan 2021 12:58:27 GMT

Hi Grobnik!

My drawing is in landscape, so if I give ac0degrees, the drawing is trying to fit itself in portrait, leaving the top and bottom portion of the sheet empty.

If I give ac90degrees, the sheet and drawing is perfect, but after the PDF is generated I have to open the PDF and rotate the drawing to 90degrees manually and save the PDF.

Regards,

Mohammed Shuaib

Re: How to create PDF in landscape view using VBA?

Ed__Jobe — Tue, 26 Jan 2021 20:20:32 GMT

That's usually a problem with the pdf printer driver you are using. What are you using? Adobe used to have that problem. It's one reason i started using Bluebeam.