Planet PDF Forum Archive

Planet PDF ForumThis is from our 160,000 page PDF discussion forum archive one & two spanning 1999-2011. Use the filters on our Advanced Search page to search archive only. Head to the LIVE Planet PDF Forum. It features more than 10 conferences, covering everything from beginner to in-depth developer and pre-press discussions.

Previous | Next | (P-PDF) Acrobat 6.0

Topic: Rotate landscape
Conf: (P-PDF) Acrobat 6.0, Msg: 103468
From: Vetle
Date: 1/9/2004 12:33 AM

Hi, all

I have a peculiar problem that I cannot figure out. In Excel I have a procedure that takes a defined output range and print this to a pdf-file. The script works fine, the only problem is that the output is rotated 90 degrees to the left! The consequence is that I have to manually errect this by clicking into the file, select rotate and tweak it to the right. This should be very unnecessary! I have tried to alter the output range, changed from landscape to portrait and so on, but with the same result. What I experience is that now matter how format the print area it is presented as portrait in Acrobat - that is to say, e.g. landscape is tilted 90 degrees to the left

The script Ive used is stated below. What Id like is to build in some sort of control function so that what I see on the screen is in the same form and shape in the pdf output file - which should be landscape and on two pages. Hope you can help Thanks, Vetle

Sub PrintOut()

Dim PSFileName As String
PSFileName = "C:\abc\"

'ActiveSheet.PageSetup.Orientation = xlPortrait

ActiveSheet.PageSetup.Orientation = xlLandscape

ActiveSheet.PrintOut copies:=1, preview:=False, ActivePrinter:="Acrobat Distiller", PrintToFile:=True, collate:=True, PrToFileName:=PSFileName

Dim PDFFileName As String
PDFFileName = "C:\abc\myPDF.pdf"

Dim myPDF As PdfDistiller
Set myPDF = New PdfDistiller
myPDF.FileToPDF PSFileName, PDFFileName, ""

Kill "C:\abc\"

SourceFile = "C:\abc\myPDF.pdf"

Filename = "Test & ".pdf"
FilePath = "C:\abc\"
DestinationFile = FilePath & Filename

FileCopy SourceFile, DestinationFile

Kill "C:\abc\myPDF.pdf"

End Sub

PDF In-Depth Free Product Trials Ubiquitous PDF

Debenu Aerialist 12

The ultimate plug-in for Adobe Acrobat. Advanced splitting, merging, stamping, bookmarking, and link...

Download free demo

Debenu PDF Tools Pro

It's simple to use and will let you preview and edit PDF files, it's a Windows application that makes...

Download free demo

Scanned documents to high-compressed PDF

Color scanning is state-of-the-art today. Scanner hardware can produce color scans with high-quality from small MFP scanners up to high-end production scanners.

April 11, 2016
Platinum Sponsor

Search Planet PDF
more searching options...
Planet PDF Newsletter
Most Popular Articles
Featured Product

Debenu PDF Aerialist 12

The ultimate plug-in for Adobe Acrobat. Advanced splitting, merging, stamping, bookmarking, and link control. Take Acrobat to the next level.


Adding a PDF Stamp Comment

OK, so you want to stamp your document. Maybe you need to give reviewers some advice about the document's status or sensitivity. This tip from author Ted Padova demonstrates how to add stamps with the Stamp Tool along with related comments.