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 I’ve used is stated below. What I’d 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