Excel To Pdf error

[mohan.r1980]

Hi Friends
i am trying to save active worksheet as pdf

But i am getting "Run time error 5 and Invalid procedure call or argument" error message

i get this code on Google search.

please suggest me where i am getting wrong

Sub SaveToPDF()
    With ActiveSheet
        .ExportAsFixedFormat _
                Type:=xlTypePDF, _
                Filename:="C:\Test\Test.pdf", _
                OpenAfterPublish:=False
    End With
End Sub

[JapanDave]

Do you have the PDF addin? I believe you need it.

[royUK]

You need the pdf addin for Excel 2007.

It will not work at all in earlier versions

[mohan.r1980]

hi friends,
i am using 64 bit pc and excel 2007 so what should i do for pdf add in?

[Domski]

http://www.microsoft.com/download/en...s.aspx?id=9943

Dom

[mohan.r1980]

thanks Domski

It runs fine
but the problem is that i can not set the paper size.
if i set the A4 size in worksheet and then run this code
pdf make size "9.24 X 11.96" which is not a A4 size

thanks in advance

[mohan.r1980]

Hi Domski

i am making project on my Pc, My pc have Excel 2007
when i run this excel to another pc where xl2003 then it show me error

see below code

Dim sh As Worksheet
   Set sh = Sheets("sheet1")
   
   sh.ExportAsFixedFormat xlTypePDF, "D:\Transfer\Test.pdf"

In xl2003 it show error xlTypePDF "variable not define"

i know SaveAsPDF.exe support only xl 2007.
is there have any exe which support both xl 2003 & 2007.

[Domski]

The ability to create pdf files within MS Office was only introduced in Office 2007. You can't use that method in 2003.

You need to use a pdf software like Adobe Acrobat Pro that can be controlled using VBA as an alternative.

Dom

[mohan.r1980]

thanks Domski

but what about setting of paper size A4 in my code
will you help me to set the paper size in A4

thanks in advance

[Domski]

As far as I know that should all be done in page setup.

Dom