"Jacob Jørgensen" <jacob.joergensen@danwest.dk> wrote in message
news:40176b19$0$151$edfadb0f@dtext02.news.tele.dk...
> Det ser jo ud til at virke. Mange tak
Velbekomen.
>
> Lige et sidste spørgsmål: Er det muligt at få den makro til at udskrive
til
> følgende printer: "HP LaserJet 4050 - Bakke 3" istedet for standard
> printeren?
Ja.
For at skifte printer skal du sætte
Application.ActivePrinter=??
Hvad du skal skrive afhænger af din printer og netværkssetup.
Hint: Skift til printeren. Kør denn makro
Sub PrinterNavn
Msgbox ActivePrinter
End Sub
For at skifte bakke skal du sætte FirstPageTray og OtherPageTray til noget.
Hvad afhænger af din printer. Jeg kender den ikke så du må prøve dig frem.
Dvs indsæt disse to linier
ActiveDocument.PageSetup.FirstPageTray = ??
ActiveDocument.PageSetup.OtherPagesTray = ??
Mvh Mads