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é