excel opslaan als pdf

[Nousje]

hallo,

Wie kan mij helpen met de volgende macro:
ik wil een .xls printen als pdf en laten opslaan in "C:\Mijn docs" met als naam A17.
Ik heb nu:

Range("B11").Select
Dim MyName
MyName = Range("A17").Value
ChDir "\\Mijn Docs"
ActiveWorkbook.SaveAs Filename:=MyName & ".xls"


Application.ActivePrinter = "\\PDFop Ne01:"
Application.ActivePrinter = "CutePDF Writer op XXXX:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Dan slaat ie m eerst op als .xls en dan moet ik m handmatig opslaan als pdf in mijn docs.
Dit moet automatisch gaan gebeuren.

Wie heeft er verstand van???
Alvast mucho bedankt!:thumb:

 

[klaas2305]

Ik gebruik deze code werkt alleen met 2007

Sub pdf_magbon_bd_in()
Sheets("bon_bd_in").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Dim FN As String
Dim sPad As String
FN = Range("d10")
sPad = "I:\grondstoffen\magbon\" & Range("m1") & "\" & ("biodiesel_in") & "\"

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
sPad & FN, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
End Sub
deze macro print het blad en saved het als pdf, ik hoop dat je er wat aan hebt

 

[Nousje]

Ha Klaas, ik werk met Excel 2003...
Dit gaat m niet worden vrees ik(hij doet het ook niet).
Bedankt iig voor je moeite:thumb:

 

[Nousje]

Klaas, dit is m geworden in Excel 2003:
ChDir _
"\\pad\FAXEN"
ActiveWorkbook.saveas Filename:= _
"\\pad\FAXEN\123456.xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Application.ActivePrinter = "CutePDF Writer op CPW2:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveWindow.SmallScroll Down:=-36
Close

Ik sla m eerst op in Excel met de naam op het pad dat ik heb ingegeven en dan print deze m als PDF waarbij ik nog wel "OK" moet geven.
Lukt best zo.
Thx voor de moeite!!!