macro pdf vraag

[sharda002]

Hallo,

Ik wil een macro maken voor het volgende:
Onderstaande macro maakt een pdf aan met Bullzip (zie onderstaand) alleen komen deze in de map terecht welke is toegewezen door de pdf printer.
Ik wil deze pdf bestanden automatisch laten opslaan in een map met toegewezen projectnummer net als het excel document in onderstaande macro doet.

wie bied uitkomst?

groet

john


--------------------------------------------------------------

Sub opslaanexcelpdf()

If ActiveSheet.Name <> "faktuur" Then Exit Sub


If Range("b16") = ("Faktuur") Then
Range("C19").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Dirr = Sheets("faktuur").Range("a6") & "\"

If Dir(Dirr, vbDirectory) = "" Then
MkDir Dirr
End If
WBnaam = Dirr & Sheets("faktuur").Range("a8")
ActiveWorkbook.SaveAs Filename:=WBnaam
ActiveWorkbook.Save
Application.ActivePrinter = "Bullzip PDF Printer op Ne01:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"Bullzip PDF Printer op Ne01:", Collate:=True
ActiveWorkbook.Save

Range("j22").Select
Selection.Copy
Windows("Omzet en betaling overzicht.xls").Activate
Sheets("Debiteuren").Select
Range("B1000").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False





Rows("5:1001").Select
Range("B6").Activate
Selection.Sort Key1:=Range("N6"), Order1:=xlDescending, Key2:=Range("E6") _
, Order2:=xlDescending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _
:=xlSortNormal
Range("a1").Select
If ActiveSheet.Name <> "faktuur" Then Exit Sub

End If

Range("C19").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Dirr = Sheets("faktuur").Range("a6") & "\"

If Dir(Dirr, vbDirectory) = "" Then
MkDir Dirr
End If
WBnaam = Dirr & Sheets("faktuur").Range("a8")
ActiveWorkbook.SaveAs Filename:=WBnaam
ActiveWorkbook.Save
Application.ActivePrinter = "Bullzip PDF Printer op Ne01:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"Bullzip PDF Printer op Ne01:", Collate:=True
ActiveWorkbook.Save
End Sub

 

[handboekict]

Of Bullzip ondersteunt een parameter waarmee je kunt aangeven naar welke map je de pdf opslaat.
Of je verplaatst de pdf nadat deze is aangemaakt naar de juiste map.