VBA code opslaan locatie PDF bestanden

[oeldere]

Beste Emil,

Onderstaande code geprobeerd, maar komt toch met de pop-up (bevestiging) om het bestandje op te slaan.

With Sheets("faktuur").Select
    Application.ActivePrinter = "CutePDF Writer op CPW2:"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
        "CutePDF Writer op CPW2:", Collate:=True
        SendKeys "{ENTER}", True
'SendKeys.send ("{ENTER}")
'Application.SendKeys.send("{ENTER}")
End With

Bedankt voor de aangedragen oplossingen en het geduld.
Kan ik toch nog iets anders proberen?

Hoe kom je op:
'SendKeys.send ("{ENTER}")

Toen de code van #20 niet werkte, heb ik via het wet nog gezocht naar een pasende code.
Hier zag ik een code met Sendkeys.send dus die heb ik dan ook geprobeerd.

 

[Emil S]

Het was ook een poging. Blijft denk ik alleen nog over om naar de instelling van de Pdf printer te kijken. Meer kan ik op dit moment niet verzinnen.

 

[Joske2000]

Hi,

Hij geeft de SendKeys "ENTER" na het sluiten van het dialoogvenster (waar je moet bevestigen om op te slaan) , dus je moet een middeltje vinden om deze te laten gebeuren terwijl je dialoogvenster nog open staat.

Joske

 

[oeldere]

Beste Emil S en Joske 200,

bedankt voor de opmerkingen en aanvullingen. :thumb:

Joske heb jij hier misschien een code voor, hoe we dit kunnen tekkelen.

 

[oeldere]

bedankt forumleden voor alle aanvullingen.:thumb:

het laatste puntje is nog niet opgelost, maar daar kom ik nog wel een keer op terug.

de rest is perfect opgelost.

ik zet de vraag nu dan ook op opgelost.