Word VBA Valg af standardprinter

Du skal fange standardprinteren først i din kode.

Sub Makro1()
oldPrinter = ActivePrinter' fanger standardprinteren


    ActivePrinter = "Canon Bubble-Jet BJC-620" ' den printer der skal udskrives til
' udskriv
Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
        wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
        Collate:=True, Background:=True, PrintToFile:=False, PrintZoomColumn:=0, _
        PrintZoomRow:=0, PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0

  ActivePrinter = oldPrinter ' sætter standardprinteren tilbage til normal

End Sub

ja det funker..tak...sender du et svar

et svar. ;-))

Tak for points.