Hindi mo ma-configure ang Outlook na gumamit ng isang partikular na hindi default na printer para mag-print ng mga email. Ngunit sa artikulong ito, ipapakita namin sa iyo ang isang paraan upang makamit ito gamit ang Outlook VBA.
Dapat ay nagtakda ang iyong computer ng printer bilang default, na ilalapat sa lahat ng program sa computer na ito. Sa kasong ito, kung gusto mong mag-print ng mga email sa pamamagitan ng hindi default na printer sa Outlook, kailangan mong baguhin ang printer sa tuwing nagpi-print. Ito ay medyo mahirap. Samakatuwid, sa mga sumusunod, ibabahagi namin sa iyo ang isang paraan upang awtomatikong gumamit ng isang partikular na printer para sa mga email nang hindi kailangang baguhin ang printer sa bawat oras.
Auto Gumamit ng Partikular na Printer para Mag-print ng Mga Email
- Sa pinakasimula pa lang, simulan ang iyong aplikasyon sa Outlook.
- Pagkatapos, sa pangunahing window ng Outlook, pindutin ang mga pindutan ng "Alt + F11".
- Susunod, sa ipinapakitang window na “Microsoft Visual Basic for Applications”, kailangan mo munang paganahin ang “Microsoft Word object Library”. Maaari mong i-click ang 'Tools” > “Reference” para magawa ito.
- Pagkatapos, kailangan mong i-access ang isang walang laman na module.
- Kasunod, kopyahin at i-paste ang sumusunod na VBA code sa modyul na ito.
Sub PrintEmail()
Dim objItem As Object
Dim objMail As Outlook.MailItem
Dim objWordApp As Word.Application
Dim strTempFolder As String
Dim strMailDocument As String
Dim objMailDocument As Word.Document
Dim strPrinter As String
Select Case Application.ActiveWindow.Class
Case olInspector
Set objItem = ActiveInspector.CurrentItem
Case olExplorer
Set objItem = ActiveExplorer.Selection.Item(1)
End Select
If TypeOf objItem Is MailItem Then
Set objMail = objItem
Set objWordApp = CreateObject("Word.Application")
strTempFolder = CStr(Environ("USERPROFILE")) & "\AppData\Local\Temp"
strMailDocument = strTempFolder & "\" & Format(Now, "yyyymmddssnn") & ".doc"
objMail.SaveAs strMailDocument, olDoc
Set objMailDocument = objWordApp.Documents.Open(strMailDocument)
objWordApp.Visible = True
objMailDocument.Activate
strPrinter = objWordApp.ActivePrinter
'Change to the name of specific printer
objWordApp.ActivePrinter = "Specific Printer"
objWordApp.PrintOut Range:=wdPrintAllDocument, Item:=wdPrintDocumentContent
objWordApp.ActivePrinter = strPrinter
objMailDocument.Close False
objWordApp.Quit
Kill strMailDocument
End If
End Sub
- Pagkatapos nito, maaari mong isara ang kasalukuyang window.
- Pagkatapos, pumunta sa menu na "File" at i-click ang "Mga Pagpipilian".
- Sa window ng "Outlook Options", lumipat sa tab na "Quick Access Toolbar" at idagdag ang bagong macro sa Quick Access Toolbar gaya ng dati.
- Sa kalaunan, maaari mong subukan ang VBA project na ito.
- Una, piliin o buksan ang isang email na gusto mong i-print.
- Pagkatapos, mag-click sa pindutan ng macro sa Quick Access Toolbar.
- Ang email ay ipi-print ng partikular na printer nang sabay-sabay.
- Mula ngayon, upang mag-print ng mga email sa pamamagitan ng partikular na printer, maaari mo na lang gamitin ang macro na ito.
I-recover ang Outlook pagkatapos ng Accident Corruption
Para maiwasan ang pagkawala ng iyong data sa Outlook, kailangan mong magsikap nang husto. Halimbawa, dapat mong regular na i-backup ang iyong PST file. Siyempre, iminumungkahi na kumuha ng external repair tool, tulad ng DataNumen Outlook Repair. Maaari ito ayusin ang PST mga error at ibalik ang maximum na data ng Outlook para sa iyo.
Panimula ng May-akda:
Si Shirley Zhang ay isang dalubhasa sa pagbawi ng data sa DataNumen, Inc., na pinuno ng mundo sa mga teknolohiya sa pagbawi ng data, kasama ang mabawi ang sql at pananaw sa pag-aayos ng mga produktong software. Para sa karagdagang impormasyon pagbisita www.datanumen. Sa