Kā izmantot VBA, lai atvērtu un izdrukātu PDF failu

...

Programmēšana

Visual Basic for Applications (VBA) ir programmēšanas valoda, ko izmanto kopā ar Microsoft Office, lai lietojumprogrammas veiktu dinamiskus uzdevumus, no kuriem viens ir PDF failu atvēršana un izdrukāšana. Lai veiktu šo uzdevumu, ir nepieciešamas pamatzināšanas par VBA valodu un VBA redaktoru, kas ir instalēts kopā ar katru Microsoft Office programmu versiju. Šo kodu var izmantot jebkurai Microsoft Office lietojumprogrammai.

1. darbība

Programmā Microsoft Office, kurā vēlaties ievadīt kodu, atveriet VBA redaktoru. Microsoft Office 2003 vai vecākas versijas lietojumprogrammā noklikšķiniet uz "Fails" > "Rīki" > "Makro" > "Visual Basic Editor". Microsoft Office 2007. gada izdevumā noklikšķiniet uz cilnes Izstrādātājs > Visual Basic.

Dienas video

2. darbība

Noklikšķiniet jebkurā vietā koda logā, kur vēlaties ievietot kodu.

3. darbība

Pievienojiet kodu, lai atvērtu PDF failu. Kodam vajadzētu izskatīties apmēram šādi:

Sub OpenPDF() Dim strPDFFileName As String 'Rediģēt, lai pievienotu pilnu faila nosaukumu PDF failam, kuru vēlaties atvērt strPDFFileName = "C:\examplefile.pdf" 'Šis nākamais funkcija pārbauda, ​​vai fails vēl nav atvērts. Ja tas nav bloķēts (strPDFFileName) Tad 'Ja tas atgriež False, turpiniet atvērt PDF failu Dokumenti. Atveriet strPDFFileName) End If End Sub

Kopējiet un ielīmējiet šo kodu savā koda logā. Vienīgā koda daļa, kas jums būs jāmaina, ir pilns ceļš uz PDF failu, kuru vēlaties atvērt. Tāpēc aizstājiet "C:\examplefile.pdf" ar savu faila ceļu un nosaukumu.

4. darbība

Pievienojiet kodu, lai izdrukātu PDF failu. Drukāšanas kods ir:

Sub PrintPDF (strPDFFileName kā virkne) Aptumšot sAdobeReader kā virkni "Šis ir pilns ceļš uz Adobe Reader vai Acrobat lietojumprogrammu jūsu datorā sAdobeReader = "C:\Program Files\Adobe\Acrobat 6.0\Reader\AcroRd32.exe" RetVal = Shell (sAdobeReader & "/P" & Chr (34) & sStrPDFFileName & Chr (34), 0) Beigt apakš

Vienīgā šī koda daļa, kas ir jāmaina, ir pilns ceļš uz Adobe Reader, Acrobat vai jebkuru PDF lasītāju jūsu datorā.

5. darbība

Izmantojiet trigeri, lai izsauktu funkcijas. Tādā veidā kods zinās, kad tas jāizpilda. Izmantojiet jebkuru aktivizētāju, kuru vēlaties; veidlapa, poga, izvēles rūtiņa vai cits veidlapas vienums. Piemēram, izmantojiet pogas deklarāciju “Klikšķis”. Noklikšķinot uz pogas, PDF dokuments tiks atvērts un pēc tam izdrukāts. Kods izskatās šādi:

Sub CommandButton_Click() 'Vispirms izsauciet atvēršanas funkciju, lai PDF varētu atvērt pirms drukāšanas Izsaukt OpenPDF 'Tagad izsaukt drukāšanas funkciju, lai varētu izdrukāt PDF Izsaukt DrukātPDF Beigas Sub

Vienkārši iekopējiet iepriekš minētā koda vidējo daļu (starp apakšpunktu un beigu apakšdaļu) veidlapas vienumā un aktivizētāju, kuru nolemjat izmantot.

Lietas, kas jums būs nepieciešamas

  • Microsoft Office lietojumprogramma

  • PDF lasītāja lietojumprogramma

Padoms

Ja izmantojat 2007. gada versiju un neredzat cilni “Izstrādātājs”, noklikšķiniet uz pogas Birojs un pēc tam izvēlnes apakšā noklikšķiniet uz pogas “Opcijas”. Noklikšķiniet uz "Rādīt cilni Izstrādātājs lentē" un noklikšķiniet uz "Labi".