Hvordan bruke VBA til å åpne og skrive ut en PDF-fil

Hvordan bruke VBA til å åpne og skrive ut en PDF-fil


Visual Basic for Applications (VBA) er programmeringsspråket som brukes sammen med Microsoft Office for å gjøre programmene utføre dynamiske oppgaver, hvorav den ene er å åpne og skrive ut PDF-filer. Hvis du vil utføre denne oppgaven, må du ha en grunnleggende forståelse av VBA språket og VBA editor som kommer ferdig installert med alle versjoner av Microsoft Office-programmene. Denne koden kan brukes for noen av Microsoft Office-programmer.

Bruksanvisning

1 Åpne VBA redaktør i Microsoft Office-programmet du vil koden som skal inngås. Klikk på \ "Fil \"> \ "Tools \"> \ "makroer \"> \ "Visual Basic Editor \" i et program for Microsoft Office 2003 eller tidligere. Klikk på \ "Utvikler tab \"> \ "Visual Basic \" i 2007-utgaven av Microsoft Office.

2 Klikk hvor som helst i koden vinduet der du vil sette inn koden.

3 Legg inn koden for å åpne PDF-filen. Du koden skal se omtrent slik ut:

Sub OpenPDF ()

Dim strPDFFileName As String
'Edit to add the full filename to the PDF file that you want to open
strPDFFileName = \"C:\\examplefile.pdf\"
'This next function checks to see if the file isn't already open
If Not FileLocked(strPDFFileName) Then
'If it returns False, then continue opening the PDF file
Documents.Open strPDFFileName)

Slutt om
End Sub

Kopier og lim inn denne koden i kodevinduet. Den eneste delen av koden som du trenger å endre er den fullstendige banen til PDF-filen du vil åpne. Så erstatte \ "C: \ examplefile.pdf \" med din egen filbane og navn.

4 Legg inn koden for å skrive ut PDF-filen. Utskriften kode er:

Sub PrintPDF (strPDFFileName som streng)

Dim sAdobeReader as String
'This is the full path to the Adobe Reader or Acrobat application on your computer
sAdobeReader = \"C:\\Program Files\\Adobe\\Acrobat 6.0\\Reader\\AcroRd32.exe\"
RetVal = Shell(sAdobeReader & \"/P\" & Chr(34) & sStrPDFFileName & Chr(34), 0)

End Sub

Den eneste delen av denne koden som må endres er den fullstendige banen til Adobe Reader, Acrobat eller PDF-leser på datamaskinen.

5 Bruk en trigger for å kalle funksjonene. Dette er hvordan koden vil vite når du skal utføre. Bruke hva utløser du vil; en form, knapp, boksen eller annen form element. For eksempel bruke \ "Klikk \" erklæring på en knapp. Når knappen klikkes, vil PDF-dokumentet åpne og deretter skrive ut. Koden ser slik ut:

Sub CommandButton_Click ()

'Call the open function first so that the PDF can open before printing
Call OpenPDF
'Now call the print function so that the PDF can be printed
Call PrintPDF

End Sub

Bare kopier den midtre delen av koden ovenfor (mellom Sub og End Sub) i skjemaet elementet og føre til at du velger å bruke.

Hint

  • Hvis du bruker versjon 2007, og ser ikke "Utvikler \" \ tab, klikk på \ "Office \" knappen og deretter \ "Options \" -knappen nederst i menyen. Klikk på \ "Show Utvikler fanen på båndet \" og klikk \ "OK. \"