anne_aat Juniormester
22. februar 2021 - 13:35 Der er 1 kommentar og
1 løsning

Print pdf på begge sider via Excel VBA

Hej Eksperter,

Jeg har følgende kode - og den virker fint:

Option Explicit

Public Sub Print_All_PDF_Files_in_Folder()

    Dim folder As String
    Dim PDFfilename As String
   
    folder = [MappeFolder]    'CHANGE AS REQUIRED
    If Right(folder, 1) <> "\" Then folder = folder & "\"
     
    PDFfilename = Dir(folder & "*.pdf", vbNormal)
    While Len(PDFfilename) <> 0
        Print_PDF folder & PDFfilename
        PDFfilename = Dir()  ' Get next matching file
    Wend

End Sub

Private Sub Print_PDF(sPDFfile As String)
    Shell "C:\Program Files (x86)\Adobe\Acrobat Reader DC\Reader\AcroRd32.exe /p /h " & Chr(34) & sPDFfile & Chr(34), vbNormalFocus
End Sub

Det den gør, er at jeg indsætter en mappesti og så printer den alle pdf-dokumenter i mappen. Nu vil jeg gerne have tilføjet lidt til min kode, så den skal printe på begge sider af papiret. Har I en idé til hvordan jeg kan gøre det?
jakobdo Ekspert
22. februar 2021 - 14:00 #1
At printe på begge sider kaldes: duplex.
Prøv at google lidt på duplex og VBA.
En kort søgning viser dog det ikke "nemt" kan laves.
Kunne det måske løses ved at sætte printeren til default DUPLEX?
ebea Ekspert
22. februar 2021 - 14:20 #2
Duplex print, er noget som håndteres af din printer, og ikke af det program du printer fra. Så hvis du vil have Duplex print, så skal du aktivere det på din printer, som standard.
Så vil den selv sørge for at printe på begge sider, hvis samme dokument har flere sider.
Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Opret Preview

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester





Premium
Efter vanskeligt år jagter aarhusianske Mjølner nu tocifrede vækstrater: Vil for alvor indtage Sjælland - her er planen
Interview: Efter et corona-plaget år er aarhusianske Mjølner Informatics nu klar til at trykke på speederen. Topchef Brian Gottorp Jeppesen forventer tocifrede vækstrater, der især skal hentes fra det sjællandske marked. Se hans plan for 2021 her.
Computerworld
Næste uge går det løs: Apple inviterer til event på utraditionel vis
Apples store event i næste uge blev afsløret af Siri før tid. Få overblik over, hvad Apple ventes af løfte sløret for.
CIO
Har du rost din mellemleder i dag? Snart er de uddøde - og det er et tab
Computerworld mener: Mellemledere lever livet farligt: Topledelsen får konstant ideer med skiftende hold i virkeligheden, og moden går mod flade agile organisationer. Men mellemlederen er en overset hverdagens helt med et kæmpe ansvar. Her er min hyldest til den ofte latterliggjorte mellemleder.
Job & Karriere
"Vi var nødt til at sige til dem, at I er nødt til at sende ham hjem nu, for han begynder at knække"
"Vi var nødt til at sige til dem, at I er nødt til at sende ham hjem nu, for han begynder at knække"
White paper
Gratis whitepaper: Hvad er EDI, og hvordan kan det styrke min forretning?
Overvejer du EDI, og ønsker du at undersøge, om EDI er den rette investering for din virksomhed?