PDF bestand sluiten

  • Onderwerp starter Onderwerp starter EfBe
  • Startdatum Startdatum
Status
Niet open voor verdere reacties.

EfBe

Gebruiker
Lid geworden
15 dec 2008
Berichten
45
Beste forumleden
Via dit draadje heb ik bijna gevonden wat ik zoek: https://www.helpmij.nl/forum/showthread.php/888375-printen-van-een-PDF
Ik wil een PDF bestand sluiten.

De aangepaste code van snb
Code:
Bestand = "Test.PDF"
CreateObject("Shell.Application").Namespace(ThisWorkbook.Path & "\Afdruk\").items.Item(BESTAND).InvokeVerb
Hier heb ik volgende aan toegevoegd: "Afsluiten" of .file.Close
De code zet het bestand actief indien reeds open tussen allerlei andere open bestanden. Of opent de reader en het bestand.

De aangepaste code van warme bakkertje:
Code:
Adobe = "Adobe Acrobat Reader DC"
WinWnd = FindWindow(vbNullString, BESTAND & " - " & ADOBE)
If WinWnd <> 0 Then PostMessage WinWnd, &H10, 0&, 0&
Hier komt altijd de vraag 'Alle tabbladen sluiten of alleen het huidige'

Graag heb ik dat het tabblad afgesloten word zonder tussenkomst.
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan