Cum să utilizați VBA pentru a deschide și imprima un fișier PDF

click fraud protection
...

Programare

Visual Basic pentru aplicații (VBA) este limbajul de programare folosit cu Microsoft Office pentru a face aplicațiile să îndeplinească sarcini dinamice, dintre care una este deschiderea și tipărirea fișierelor PDF. Pentru a efectua această sarcină, aveți nevoie de o înțelegere de bază a limbajului VBA și a editorului VBA care vine instalat cu fiecare versiune a programelor Microsoft Office. Acest cod poate fi folosit pentru oricare dintre aplicațiile Microsoft Office.

Pasul 1

Deschideți editorul VBA în aplicația Microsoft Office în care doriți să fie introdus codul. Faceți clic pe „Fișier” > „Instrumente” > „Macrocomenzi” > „Editor Visual Basic” într-o aplicație Microsoft Office 2003 sau anterioară. Faceți clic pe „Fila Dezvoltator” > „Visual Basic” în ediția 2007 a Microsoft Office.

Videoclipul zilei

Pasul 2

Faceți clic oriunde în fereastra de cod în care doriți să introduceți codul.

Pasul 3

Adăugați codul pentru a deschide fișierul PDF. Codul dvs. ar trebui să arate cam așa:

Sub OpenPDF() Dim strPDFFileName As String 'Edit pentru a adăuga numele complet al fișierului PDF pe care doriți să-l deschideți strPDFFileName = "C:\examplefile.pdf" 'Următorul funcția verifică dacă fișierul nu este deja deschis dacă nu este blocat fișierul (strPDFFileName) Apoi „Dacă returnează False, atunci continuați deschiderea fișierului PDF Documente. Deschideți strPDFFileName) End If End Sub

Copiați și inserați acest cod în fereastra de cod. Singura parte a codului pe care va trebui să o modificați este calea completă către fișierul PDF pe care doriți să-l deschideți. Așadar, înlocuiți „C:\examplefile.pdf” cu propria cale de fișier și nume.

Pasul 4

Adăugați codul pentru a imprima fișierul PDF. Codul de printare este:

Sub PrintPDF (strPDFFileName ca șir) Dim sAdobeReader ca șir „Aceasta este calea completă către aplicația Adobe Reader sau Acrobat de pe computerul dvs. sAdobeReader = "C:\Program Files\Adobe\Acrobat 6.0\Reader\AcroRd32.exe" RetVal = Shell (sAdobeReader & "/P" & Chr (34) & sStrPDFFileName & Chr (34), 0) End Sub

Singura parte a acestui cod care trebuie schimbată este calea completă către Adobe Reader, Acrobat sau orice cititor PDF de pe computer.

Pasul 5

Utilizați un declanșator pentru a apela funcțiile. Acesta este modul în care codul va ști când să se execute. Utilizați orice declanșator doriți; un formular, buton, casetă de selectare sau alt element de formular. De exemplu, utilizați declarația „Click” a unui buton. Când se face clic pe butonul, documentul PDF se va deschide și apoi se va imprima. Codul arată astfel:

Sub CommandButton_Click() „Apelați mai întâi funcția de deschidere, astfel încât PDF-ul să se poată deschide înainte de imprimare Apelați OpenPDF „Acum apelați funcția de imprimare, astfel încât PDF-ul să poată fi tipărit Apelați PrintPDF End Sub

Doar copiați porțiunea din mijloc a codului de mai sus (între Sub și End Sub) în elementul de formular și declanșați pe care decideți să îl utilizați.

Lucruri de care veți avea nevoie

  • O aplicație Microsoft Office

  • Aplicație de citire PDF

Bacsis

Dacă utilizați versiunea 2007 și nu vedeți fila „Dezvoltator”, faceți clic pe butonul „Office” și apoi pe butonul „Opțiuni” din partea de jos a meniului. Faceți clic pe „Afișați fila Dezvoltator pe panglică” și faceți clic pe „OK”.