printer i word

Jeg ved ikke, om du kan lægge makroen i proceslinjen, men jeg valgte at lægge en ekstra printer i ikonlinjen. Jeg lagde en anden farve på printer ikonet, så det var let at skelne.

Sub PrinterAndetsted()
'Udskriver til en anden printer en default
'***********************Vælger anden printer**********************'
With Dialogs(wdDialogFilePrintSetup)
  .Printer = "Stien til printeren der skal vælges"
  .DoNotSetAsSysDefault = True
  .Execute
End With

'*******************Vælger at der skal udskrives side 1 fra bakke 3 og Side 2 fra bakke 4 (her kan du indspille en makro og se, hvad dine skuffer hedder)*****
With ActiveDocument.PageSetup
     
        .FirstPageTray = wdPrinterMiddleBin ' Bakke 3 i Lexmark Optra 612 printeren
        .OtherPagesTray = 257  'Bakke 4 i Lexmark Optra 612 printeren
     
    End With
   
'***********************Udskriver*****************
ActiveDocument.PrintOut


'*************sætter printeren tilbage til default  printer********************
With Dialogs(wdDialogFilePrintSetup)
  .Printer = "Stien til default printer"
  .DoNotSetAsSysDefault = True
  .Execute
End With

End Sub

copy paste venligst svar til http://www.eksperten.dk/spm/465626

Jeg har allerede fået mere end rigeligt, faktisk det maximale man må få derfor får du dine point tilbage her http://www.eksperten.dk/spm/466291, så vær rar at lægge et svar.