პროგრამირება
Visual Basic აპლიკაციებისთვის (VBA) არის პროგრამირების ენა, რომელიც გამოიყენება Microsoft Office-თან ერთად აპლიკაციების დინამიური ამოცანების შესასრულებლად, რომელთაგან ერთ-ერთია PDF ფაილების გახსნა და დაბეჭდვა. ამ ამოცანის შესასრულებლად გჭირდებათ VBA ენისა და VBA რედაქტორის ძირითადი ცოდნა, რომელიც დაინსტალირებულია Microsoft Office პროგრამების ყველა ვერსიაში. ეს კოდი შეიძლება გამოყენებულ იქნას Microsoft Office-ის ნებისმიერი აპლიკაციისთვის.
Ნაბიჯი 1
გახსენით VBA რედაქტორი Microsoft Office აპლიკაციაში, რომელშიც გსურთ კოდის შეყვანა. დააწკაპუნეთ ღილაკზე "ფაილი" > "ინსტრუმენტები" > "მაკროები" > "ვიზუალ ბაისიკის რედაქტორი" Microsoft Office 2003 ან უფრო ადრეულ აპლიკაციაში. დააწკაპუნეთ "დეველოპერის ჩანართზე" > "Visual Basic" Microsoft Office-ის 2007 წლის გამოცემაში.
დღის ვიდეო
ნაბიჯი 2
დააწკაპუნეთ კოდის ფანჯარაში ნებისმიერ ადგილას, სადაც გსურთ კოდის ჩასმა.
ნაბიჯი 3
დაამატეთ კოდი PDF ფაილის გასახსნელად. თქვენი კოდი ასე უნდა გამოიყურებოდეს:
Sub OpenPDF() Dim strPDFFileName As String 'Edit რათა დაამატოთ სრული სახელი PDF ფაილში, რომლის გახსნაც გსურთ strPDFFileName = "C:\examplefile.pdf" 'ეს შემდეგი ფუნქცია ამოწმებს, რომ ფაილი ჯერ კიდევ არ არის გახსნილი, თუ არ არის FileLocked (strPDFFileName) შემდეგ 'თუ ის დააბრუნებს False-ს, შემდეგ გააგრძელეთ PDF ფაილის Documents გახსნა. გახსენით strPDFFileName) End If End Sub
დააკოპირეთ და ჩასვით ეს კოდი თქვენი კოდის ფანჯარაში. კოდის ერთადერთი ნაწილი, რომლის შეცვლაც დაგჭირდებათ, არის სრული გზა PDF ფაილისკენ, რომლის გახსნაც გსურთ. ასე რომ, შეცვალეთ "C:\examplefile.pdf" თქვენი საკუთარი ფაილის ბილიკით და სახელით.
ნაბიჯი 4
დაამატეთ კოდი PDF ფაილის დასაბეჭდად. ბეჭდვის კოდია:
Sub PrintPDF (strPDFFileName როგორც სტრიქონი) Dim sAdobeReader როგორც სტრიქონი 'ეს არის სრული გზა Adobe Reader ან Acrobat აპლიკაციისკენ თქვენს კომპიუტერში sAdobeReader = "C:\Program Files\Adobe\Acrobat 6.0\Reader\AcroRd32.exe" RetVal = Shell (sAdobeReader & "/P" & Chr (34) & sStrPDFFileName & Chr (34), 0) ბოლო ქვე
ამ კოდის ერთადერთი ნაწილი, რომელიც უნდა შეიცვალოს, არის თქვენი კომპიუტერის Adobe Reader, Acrobat ან ნებისმიერი PDF წამკითხველის სრული გზა.
ნაბიჯი 5
გამოიყენეთ ტრიგერი ფუნქციების გამოსაძახებლად. ასე შეიტყობს კოდი როდის უნდა შესრულდეს. გამოიყენეთ ის, რაც გსურთ; ფორმა, ღილაკი, ჩამრთველი ან ფორმის სხვა ელემენტი. მაგალითად, გამოიყენეთ ღილაკის "Click" დეკლარაცია. როდესაც დააჭირეთ ღილაკს, PDF დოკუმენტი გაიხსნება და შემდეგ დაიბეჭდება. კოდი ასე გამოიყურება:
Sub CommandButton_Click() 'პირველად გამოიძახეთ ღია ფუნქცია, რათა PDF გაიხსნას დაბეჭდვამდე Call OpenPDF 'ახლა გამოიძახეთ ბეჭდვის ფუნქცია ისე, რომ PDF დაიბეჭდოს Call PrintPDF End Sub
უბრალოდ დააკოპირეთ ზემოთ მოყვანილი კოდის შუა ნაწილი (Sub-სა და End Sub-ს შორის) ფორმის ერთეულში და ჩართეთ, რომლის გამოყენებაც გადაწყვიტეთ.
რამ დაგჭირდებათ
Microsoft Office აპლიკაცია
PDF მკითხველის აპლიკაცია
რჩევა
თუ იყენებთ 2007 წლის ვერსიას და ვერ ხედავთ "დეველოპერი" ჩანართს, დააჭირეთ ღილაკს "ოფისი" და შემდეგ მენიუს ბოლოში "ოფციები". დააწკაპუნეთ "დეველოპერის ჩანართის ჩვენება ლენტზე" და დააჭირეთ "OK".
