Cara Otomatis Menggunakan Printer Tertentu untuk Mencetak Email Outlook

Anda tidak dapat mengonfigurasi Outlook untuk menggunakan printer non-default tertentu untuk mencetak email. Namun dalam artikel ini, kami akan menunjukkan metode untuk mencapainya dengan Outlook VBA.

Komputer Anda harus telah menetapkan printer sebagai printer default, yang akan diterapkan ke semua program di komputer ini. Dalam hal ini, jika Anda ingin mencetak email melalui printer non-default di Outlook, Anda harus mengganti printer setiap kali mencetak. Hal ini cukup merepotkan. Oleh karena itu, berikut ini kami akan membagikan kepada Anda cara untuk menggunakan printer tertentu secara otomatis untuk email tanpa perlu mengganti printer setiap saat.

Otomatis Gunakan Printer Tertentu untuk Mencetak Email

1. Pertama-tama, jalankan aplikasi Outlook Anda.
2. Kemudian, di jendela Outlook utama, tekan tombol "Alt + F11".
3. Selanjutnya, pada jendela “Microsoft Visual Basic for Applications” yang ditampilkan, Anda perlu mengaktifkan “Microsoft Word Object Library” terlebih dahulu. Anda dapat mengklik “Tools” > “Reference” untuk melakukannya.
4. Kemudian, Anda perlu mengakses modul kosong.
5. Selanjutnya, salin dan tempel kode VBA berikut ke dalam modul ini.

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

6. Setelah itu, Anda dapat menutup jendela aktif.
7. Lalu, masuk ke menu "File" dan klik "Opsi".
8. Di jendela "Opsi Outlook", geser ke tab "Bilah Alat Akses Cepat" dan tambahkan makro baru ke Bilah Alat Akses Cepat seperti biasa.
9. Akhirnya, Anda dapat mencoba proyek VBA ini.

• Pertama, pilih atau buka email yang ingin Anda cetak.
• Kemudian, klik tombol makro di Bilah Alat Akses Cepat.
• Email akan dicetak oleh printer tertentu sekaligus.

10. Mulai sekarang, untuk mencetak email dengan printer tertentu, Anda bisa menggunakan makro ini.

Pulihkan Outlook setelah Korupsi Kecelakaan

Untuk mencegah kehilangan data Outlook Anda, Anda harus melakukan upaya besar. Misalnya, Anda harus mencadangkan file PST Anda secara teratur. Tentu saja, disarankan untuk menggunakan alat perbaikan eksternal, seperti DataNumen Outlook Repair. Hal ini dapat perbaiki PST kesalahan dan memulihkan data Outlook maksimum untuk Anda.

Pengantar Penulis:

Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk memulihkan sql dan produk perangkat lunak perbaikan pandangan. Untuk informasi lebih lanjut kunjungi www.datanumen.com