Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
 Otvorte VBA editor s dokumentom , v ktorom si prajete , aby zadajte kód . Kliknite na " File " a potom kliknúť na " Nástroje " . Kliknite na " makrá . " Hit " Editor jazyka Visual Basic . " Ak používate aplikácie 2007 , kliknite na " Developer " a potom kliknúť na 
 2 
 Napíšte tento kód do okna kódu " Visual Basic " . : 
 
 Sub OpenPDF ( ) 
 
 Dim strPDFFileName As String 
 
 strPDFFileName = " C : \\ examplefile.pdf " 
 
 ( " Táto nová funkcia skontroluje , či súbor nie je už otvorený ) 
 
 Ak nie FileLocked ( strPDFFileName ) potom 
 
 (ak to vráti False , potom pokračovať v otváraní súboru PDF ) 
 
 Documents.Open strPDFFileName ) 
 
 End If 
 
 End Sub 
 
 Edit " strPDFFileName " pridať názov pôvodného súboru do súboru PDF , ktorý chcete otvoriť . Nahradiť " C : \\ examplefile.pdf " s aktuálnym umiestnenie ceste vášho PDF dokumentu 
 3 
 Zadajte tento kód pripraviť na tlač PDF : . 
 
 Sub PrintPDF ( strPDFFileName ako reťazec ) 
 
 Dim sAdobeReader ako String 
 
 sAdobeReader = " C : \\ Program Files \\ Adobe \\ Acrobat 6.0 \\ Reader \\ Acrord32.exe " 
 
 retval = Shell ( sAdobeReader & " /P " & Chr ( 34 ) & sStrPDFFileName & Chr ( 34 ) , 0 ) 
 
 End Sub 
 
 Upraviť cestu v tomto kóde " . Adobe Reader " na skutočnej ceste vášho verzie 
 4 
 Napíšte tento kód spustiť vaše PDF na tlač : 
 
 Sub CommandButton_Click ( ) 
 
 Call OpenPDF 
 
Volajte PrintPDF klipart
 End Sub 
              
Copyright © počítačové znalosti Všetky práva vyhradené