Ανοίξτε editor VB σας μέσα σε ένα έγγραφο του Microsoft κάνοντας κλικ στο " Εργαλεία ", " Μακροεντολές ", " Visual Basic. " 2
Πληκτρολογήστε τον ακόλουθο κώδικα στο ο συντάκτης :
Sub OpenPDF ( )
Dim strPDFFileName Όπως String
strPDFFileName = " C : \\ examplefile.pdf "
( « Αυτή η επόμενη λειτουργία ελέγχους για να δούμε αν το αρχείο δεν είναι ήδη ανοιχτό )
If Not FileLocked ( strPDFFileName ) Στη συνέχεια
( Αν επιστρέφει False , στη συνέχεια, να συνεχίσει να ανοίξετε το αρχείο PDF )
Documents.Open strPDFFileName )
End If
End Sub
Αντικατάσταση " strPDFFileName " με το πλήρες όνομα του εγγράφου PDF σας . Αντικαταστήστε το " C : \\ examplefile.pdf " με τη θέση του καταλόγου του εγγράφου σας
εικόνων 3
Πληκτρολογήστε τον ακόλουθο κώδικα για την προετοιμασία του αρχείου PDF για εκτύπωση : .
Sub PrintPDF ( strPDFFileName ως string)
Δημ. sAdobeReader ως 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
Εισάγετε τον παρακάτω κώδικα για να εκτυπώσετε το έγγραφο τελικά PDF σας :
Sub CommandButton_Click ( )
Call OpenPDF
Καλέστε PrintPDF
Sub End
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα