xls opslaan als pdf in bepaalde directory met vba

[Nousje]

Goed bezig
In principe heb ik maar één pdf-bestand met die naam die middels KILL verwijderd wordt.
Maar ik noteer m just in case

Nu issie zo:
ChDir _
"\\C:\FAXEN"
ActiveWorkbook.saveas Filename:= _
"\\C:\FAXEN\fax.xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ChDir _
"\\C:\FAXEN"
Application.ActivePrinter = "CutePDF Writer op CPW2:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveWindow.SmallScroll Down:=-36
Range("A17").Select
Range("A15").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
ActiveWindow.SmallScroll Down:=27
newHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now()) + 20
waitTime = TimeSerial(newHour, newMinute, newSecond)
Application.Wait waitTime
If Application.Wait(Now + TimeValue("0:00:20")) Then
MsgBox "Kan pdf verwijderd worden?"
Kill "\\C:\FAXEN\fax.pdf"

End If
End Sub

Ik benoem m vantevoren, het lukt idd ook om de naam uit een cel te pakken.
Wat me niet lukt met Excel 2003 is om de pdf automatisch te laten opslaan(na de printopdracht) in een vooraf gedefinieerde map met een vooraf gedefinieerde naam.
Ik moet telkens opnieuw de map zoeken.
das dan net weer ff lastig...
Zou het niet lukken met een PrintTo ofzoiets?

 

[Cranky]

Bedankt dat het niet Excel is die de PDF opslaat, maar CutePDF. Die slaat de printopdracht als bestand op in de map waarin ook het Excel-document opgeslagen is. Dat werkte toch al?

Dus je wil het Excel-bestand voordat je gaat printen opslaan in een map met een voorgedefinieerde naam.

Dim Pad As String
Pad = "c:\watjepadookis"
ThisWorkbook.SaveAs (Pad) + "\Bestandsnaam.xls", FileFormat:=xlNormal

 

[Nousje]

Excel heb ik al zo ver dat ie opslaat waar(FAXEN) ik wil met welke naam(FAX):
ChDir _
"\\C:\FAXEN"
ActiveWorkbook.saveas Filename:= _
"\\C:\FAXEN\fax.xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False



nadat de macro de opdracht tot printen geeft als pdf, daar zit t m.
Dan moet het pad gezocht worden en de naam gegeven worden door mij middels de pop-up.
Daar wil ik eigenlijk vanaf.
Maar ActivateExport(ofzoiets) werkt niet in 2003.
Ik dacht m zo te hebben:
ChDir _
"\\C:\FAXEN"
Application.ActivePrinter = "CutePDF Writer op CPW2:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveWorkbook.saveas Filename:= _
"\\C:\FAXEN\fax.pdf" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Maar dat doet ie ook niet.
Enig idee?

 

[Cranky]

2003 kan niks met PDF helaas.

En CutePDF zal altijd om een bestandsnaam vragen tenzij je CutePDF kunt vertellen om het anders te doen (via de opties of de opdrachtregel).

Kun je niet eens denken over een andere (commandline) PDF-converter?

 

[Wigi]

Bekijk de suggestie nogmaals in post #11:

http://www.helpmij.nl/forum/showpost.php?p=3293990&postcount=11

 

[Nousje]

Die werkt met PDFcreator, ik met CutePDF...
Als ik alleen de naam verander dan werkt ie niet.
Ik heb geen mogelijkheid om PDF Creator te installeren omdat ik de macro voor het werk wil gebruiken en anderen ook.
Hebben jullie stiekem nog ideëen?

 

[Wigi]

Dan kan je na het exporteren als PDF nog wel de constructie: Name ... As ... gebruiken om een bestandsnaam te wijzigen, ja zelfs een bestand te knippen naar een andere locatie met mogelijk een andere naam.

Wigi

 

[Nousje]

Hartstikke goed!
Maarre...
Hoe pas ik die in in de macro die ik nu heb?