यह ट्यूटोरियल एक्सेल वीबीए में पीडीएफ को सेव / प्रिंट करने का तरीका दिखाएगा।
पीडीएफ में प्रिंट करें
यह सरल प्रक्रिया एक्टिवशीट को एक पीडीएफ में प्रिंट करेगी।
| 123456 | उप SimplePrintToPDF ()ActiveSheet.ExportAsFixedFormat प्रकार:=xlTypePDF, फ़ाइल नाम:="demo.pdf", गुणवत्ता:=xlQualityStandard, _शामिल डॉकप्रॉपर्टीज: = गलत, इग्नोरप्रिंट एरिया: = गलत, ओपनआफ्टरपब्लिश: = ट्रूअंत उप |
मैंने त्रुटि प्रबंधन आदि के साथ एक फ़ंक्शन भी बनाया है जो ActiveSheet को PDF में प्रिंट करेगा:
| 12345678910111213141516171819202122232425262728293031323334353637383940 | उप प्रिंटपीडीएफ ()सेव_पीडीएफ पर कॉल करेंअंत उपफ़ंक्शन सेव_पीडीएफ () बूलियन के रूप में ई-मेलिंग के लिए शीट को नई पीडीएफ फाइल में कॉपी करता हैइस पत्रक को स्ट्रिंग के रूप में मंद करें, यह फ़ाइल स्ट्रिंग के रूप में, पथनाम स्ट्रिंग के रूप मेंस्ट्रिंग के रूप में मंद SvAsएप्लिकेशन.स्क्रीनअपडेटिंग = गलतफ़ाइल सहेजें नाम प्राप्त करेंथिसशीट = एक्टिवशीट.नामयह फ़ाइल = ActiveWorkbook.Nameपथनाम = ActiveWorkbook.PathSvAs = पथनाम और "\" और यह पत्रक और ".pdf"'प्रिंट गुणवत्ता सेट करें'त्रुटि पर फिर से शुरू करें अगलाActiveSheet.PageSetup.PrintQuality = 600एरर.क्लियरत्रुटि गोटो 0 . पर' उपयोगकर्ता को निर्देश दें कि कैसे भेजेंत्रुटि पर GoTo RefLibErrorActiveSheet.ExportAsFixedFormat प्रकार:=xlTypePDF, फ़ाइल नाम:=SvAs, गुणवत्ता:=xlQualityStandard, शामिल DocProperties:=गलत, इग्नोरप्रिंट एरिया:=गलत, OpenAfterPublish:=Trueत्रुटि गोटो 0 . परकेवल सहेजें:MsgBox "इस शीट की एक प्रति सफलतापूर्वक एक .pdf फ़ाइल के रूप में सहेजी गई है:" & Chr(13) & Chr(13) & SvAs & _".pdf दस्तावेज़ की समीक्षा करें। यदि दस्तावेज़ अच्छा नहीं लग रहा है, तो अपने मुद्रण मापदंडों को समायोजित करें, और पुनः प्रयास करें।"सेव_पीडीएफ = सचगोटो एंडमैक्रोRefLibत्रुटि:MsgBox "पीडीएफ के रूप में सहेजने में असमर्थ। संदर्भ पुस्तकालय नहीं मिला।"सेव_पीडीएफ = गलतएंडमैक्रो:अंत समारोह |
यदि पीडीएफ में प्रिंट सफल हुआ या नहीं, तो फ़ंक्शन TRUE या FALSE लौटाता है।
पीडीएफ फंक्शन सहेजें और ईमेल करें
यह फ़ंक्शन ActiveSheet को PDF के रूप में सहेजेगा और (वैकल्पिक रूप से) PDF को एक ईमेल में संलग्न करेगा (यह मानते हुए कि आपके पास Outlook स्थापित है):
| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748 | सब टेस्ट_सेव_पीडीएफ ()Send_PDF पर कॉल करें ("ईमेल भेजें")अंत उपफ़ंक्शन Send_PDF (स्ट्रिंग के रूप में वैकल्पिक क्रिया = "केवल सहेजें") बूलियन के रूप में 'ई-मेलिंग के लिए नई पीडीएफ फाइल में शीट कॉपी करता हैइस पत्रक को स्ट्रिंग के रूप में मंद करें, यह फ़ाइल स्ट्रिंग के रूप में, पथनाम स्ट्रिंग के रूप मेंस्ट्रिंग के रूप में मंद SvAsएप्लिकेशन.स्क्रीनअपडेटिंग = गलतफ़ाइल सहेजें नाम प्राप्त करेंथिसशीट = एक्टिवशीट.नामयह फ़ाइल = ActiveWorkbook.Nameपथनाम = ActiveWorkbook.PathSvAs = पथनाम और "\" और यह पत्रक और ".pdf"'प्रिंट गुणवत्ता सेट करें'त्रुटि पर फिर से शुरू करें अगलाActiveSheet.PageSetup.PrintQuality = 600एरर.क्लियरत्रुटि गोटो 0 . पर' उपयोगकर्ता को निर्देश दें कि कैसे भेजेंत्रुटि पर GoTo RefLibErrorActiveSheet.ExportAsFixedFormat प्रकार:=xlTypePDF, फ़ाइल नाम:=SvAs, गुणवत्ता:=xlQualityStandard, शामिल DocProperties:=गलत, इग्नोरप्रिंट एरिया:=गलत, OpenAfterPublish:=Trueत्रुटि गोटो 0 . पर' ईमेल भेजेंयदि क्रिया = "ईमेल भेजें" तोएरर गो टू सेव ओनलीएप्लिकेशन। संवाद (xlDialogSendMail)।दिखाएँत्रुटि गोटो 0 . परगोटो एंडमैक्रोअगर अंतकेवल सहेजें:MsgBox "इस शीट की एक प्रति सफलतापूर्वक एक .pdf फ़ाइल के रूप में सहेजी गई है:" & Chr(13) & Chr(13) & SvAs & _".pdf दस्तावेज़ की समीक्षा करें। यदि दस्तावेज़ अच्छा नहीं लग रहा है, तो अपने मुद्रण मापदंडों को समायोजित करें, और पुनः प्रयास करें।"Send_PDF = सत्यगोटो एंडमैक्रोRefLibत्रुटि:MsgBox "पीडीएफ के रूप में सहेजने में असमर्थ। संदर्भ पुस्तकालय नहीं मिला।"Send_PDF = गलतएंडमैक्रो:अंत समारोह |
