Planet PDF Forum Archive

Planet PDF ForumWowsers! This is page is old, 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. If you wish to continue... one & two archive covers 1999-2011 (160,000 pages).


New Forum | 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\myPostScript.ps"

'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\myPostScript.ps"

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

PDF Master Series III: Eugene Y. Xiong talks with Planet PDF

Planet PDF talks with another Master of the PDF Universe, Eugene Y. Xiong, Founder and Chairman of the Board at Foxit Software Inc. in Fremont California. Xiong is a quiet yet astounding achiever, you (usually) won't find him talking at conferences, exhibits, or publishings, but what you will find is the result of his leadership in places you would never expect.

September 14, 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.

Features

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.