aprire l'editor di Visual Basic all'interno di un documento di Microsoft facendo clic su "Strumenti ", " macro ", " Visual Basic Editor. "
2
Digitare il seguente codice in all'editor:
Sub OpenPDF ( ) per
Dim strPDFFileName As String
strPDFFileName = " C : \\ examplefile.pdf "
( ' la prossima funzione controlla se il file non è già aperto ) per
Se non FileLocked ( strPDFFileName ) poi
( Se restituisce false , quindi continuare ad aprire il file PDF ) per
Documents.Open strPDFFileName ) per
End If End Sub
Sostituire " strPDFFileName " con il nome completo del documento PDF . Sostituire " C : \\ examplefile.pdf ." Con il percorso della directory del documento
3
Digitare il seguente codice per preparare i file PDF per la stampa :
Sub PrintPDF ( strPDFFileName come stringa ) per
Dim sAdobeReader come String
sAdobeReader = "C: \\ Programmi \\ Adobe \\ Acrobat 6.0 \\ Reader \\ AcroRd32.exe "
RetVal = Shell ( sAdobeReader & " /P " & Chr ( 34) & sStrPDFFileName & Chr ( 34 ) , 0 ) per
End Sub
4
Inserisci il codice sottostante per poi stampare il documento PDF :
Sub CommandButton_Click ( ) per
Chiama OpenPDF
Chiama PrintPDF
End Sub
software © www.354353.com