Avatar billede it-manden.dk Nybegynder
15. februar 2004 - 17:03 Der er 4 kommentarer og
1 løsning

Printer i Word

Jeg ved godt at dette ikke er den rigtige kattegori, men der sidder flere programører her så..........

Hvordan opretter man en ekstra printer i værktøjslinjen der fx printer til skuffe 2 ??
Avatar billede bufferzone Praktikant
15. februar 2004 - 17:12 #1
Du kan "installere" samme printer flere gange, og så have forskellig navgivning konfiguration på hver indstilling. Det er der faktisk ingen ben i
Avatar billede it-manden.dk Nybegynder
15. februar 2004 - 17:23 #2
Ja men jeg ønsker en printerknap i Word som der er der, men med andre egenskaber
Avatar billede bufferzone Praktikant
15. februar 2004 - 18:11 #3
jeg er ikke helt sikker, man du kan lave forskellige makroet, hvor du vælger og udskriver med forskellige printer, og så sætte forskellige knapper på hver makro.

Du optager en makro, giver den et navn du kan huske, og tilslutter så en knap i tilpas ikoner på værktøjslinierne. Det kan også laves som menupunkt.

Du bør starte med at lave forskellige printerinstallationer, som jeg beskrev ovenfor
Avatar billede Slettet bruger
16. februar 2004 - 22:45 #4
Formoder, det er dette du vil.

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
Avatar billede Slettet bruger
16. februar 2004 - 22:57 #5
Takker ;-)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Dyk ned i databasernes verden på et af vores praksisnære Access-kurser

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester