Hur man använder en specifik skrivare automatiskt för att skriva ut Outlook-e-postmeddelanden

Outlook-lösningar September 29, 2025

Du kan inte konfigurera Outlook för att använda en specifik icke-standardskrivare för att skriva ut e-post. Men i den här artikeln visar vi dig en metod för att uppnå det med Outlook VBA.

Din dator måste ha ställt in en skrivare som standard, som kommer att tillämpas på alla program på den här datorn. I det här fallet, om du vill skriva ut e-postmeddelanden via en icke-standardskrivare i Outlook, måste du byta skrivare varje gång du skriver ut. Det är ganska besvärligt. Därför kommer vi i det följande att dela med dig av ett sätt att automatiskt använda en specifik skrivare för e-post utan att behöva byta skrivare varje gång.

Använd automatiskt en specifik skrivare för att skriva ut Outlook-e-postmeddelanden

Använd automatiskt en specifik skrivare för att skriva ut e-post

  1. Starta ditt Outlook-program redan från början.
  2. Tryck sedan på “Alt + F11” -tangenterna i huvudfönstret i Outlook.
  3. I fönstret "Microsoft Visual Basic for Applications" som visas måste du först aktivera "Microsoft Word-objektbibliotek". Du kan klicka på "Verktyg" > "Referens" för att göra det.
  4. Då måste du komma åt en tom modul.
  5. Kopiera sedan och klistra in följande VBA-kod i den här modulen.
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

VBA-kod - Använd automatiskt en specifik skrivare för att skriva ut Outlook-e-post

  1. Därefter kan du stänga det aktuella fönstret.
  2. Gå sedan till "Arkiv" -menyn och klicka på "Alternativ".
  3. I fönstret “Outlook-alternativ”, flytta till fliken “Snabbåtkomstverktyg” och lägg till det nya makrot i Snabbåtkomstfältet som vanligt.
  4. Så småningom kan du prova detta VBA-projekt.
  • Välj eller öppna ett e-postmeddelande som du vill skriva ut.
  • Klicka sedan på makroknappen i snabbåtkomstverktygsfältet.
  • E-postmeddelandet kommer att skrivas ut av den specifika skrivaren på en gång.
  1. Från och med nu, för att skriva ut e-postmeddelanden per specifik skrivare, kan du bara använda detta makro.

Återställ Outlook efter olyckskorruption

För att förhindra att dina Outlook-data går förlorade måste du göra stora ansträngningar. Du bör till exempel säkerhetskopiera din PST-fil regelbundet. Naturligtvis rekommenderas det att du skaffar ett externt reparationsverktyg, som DataNumen Outlook Repair. Det kan fixa PST fel och återställa maximal Outlook-data åt dig.

Författarintroduktion:

Shirley Zhang är expert på dataåterställning DataNumen, Inc., som är världsledande inom teknik för återställning av data, inklusive återhämta sql och Outlook-programvara för reparationsprogramvara. För mer information besök www.datanumen.com

Kommentarer är stängda.