Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Otvorte editor jazyka Visual Basic v dokumente Microsoft kliknutím na " Nástroje " , " Makrá " , " Visual Basic Editor . "
2
Zadajte nasledujúci kód do editor :
Sub OpenPDF ( )
Dim strPDFFileName As String
strPDFFileName = " C : \\ examplefile.pdf "
( " Táto nová funkcia skontroluje , či súbor nie je už otvorený )
Ak nie je FileLocked ( strPDFFileName ) potom
(ak to vráti False , potom pokračovať v otváraní súboru PDF )
Documents.Open strPDFFileName )
End If
End Sub
Nahradiť " strPDFFileName " s plným menom vášho PDF dokumentu . Nahradiť "c : \\ examplefile.pdf " s adresári umiestnenie dokumentu
3
Zadajte nasledujúci kód pripraviť súbor PDF pre tlač : .
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
4
Zadajte nižšie kódu konečne vytlačiť dokument PDF :
Sub CommandButton_Click ( )
Call OpenPDF
Volajte PrintPDF klipart
End Sub
Copyright © počítačové znalosti Všetky práva vyhradené