Gemme forskellige printeroplysninger i skabeloner

Jeg er ikke en ørn til VBA, men denne makro har jeg brugt i en skabelon, hvor der skulle udskrives på bestemt papir fra printerens bakker.

Hvis du kan selv, kan du måske omskrive makroen, så den tjekker hvilken printer og derefter udskriver fra den printer og de skuffer den skal.

Du finder ud af hvilken netværksprinter der er aktiv på følgende måde.

Find ud af hvilken printer der er aktiv - f.eks. til netværksstien
'dette skives i VBA kodemodulet i Immediate Window

MsgBox "the name of the active printer is" & ActivePrinter

Makroen er her:
Sub PrinterOmstillingTilAndenPrinter()

'Udskriver på en anden printer end default

'***********************Vælger anden printer**********************'
With Dialogs(wdDialogFilePrintSetup)
    sPrinter = .Printer

  .Printer = "Printer sti og navn"
  .DoNotSetAsSysDefault = True
  .Execute
End With

'**Vælger at der skal udskrives side 1 fra bakke 3 og Side 2 fra bakke 4***

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 printer tilbage til Default*************

With Dialogs(wdDialogFilePrintSetup)
  .Printer = sPrinter
  .DoNotSetAsSysDefault = True
  .Execute
End With
End Sub

Jeg fik den inspiration jeg skulle bruge til selv at kunne finde resten og stykket det sammen til en brugbar programkode, som virkede. Tak for hjælpen hov-sa

Det glæder mig det lykkedes. Tak for point :-)