To trykte eksemplarer til forskjellige papirskuffer

February 28  by Eliza

Joyce har en skriver som har to papirmagasiner i det. Den første (standard) papirmagasin inneholder vanlig hvitt papir. Den andre papirskuffen inneholder en annen farge på papir. I Joyce kontor, når de skriver ut dokumenter de trenger for å skrive ut ett eksemplar på hvitt papir, og den andre kopien på farget papir. Hun lurer på om det er en måte å gjøre en eneste utskrift av dokumentet, men har Word sende en kopi til den første papirskuff og et annet til den andre.

Den beste måten å gjøre dette på er å bruke en makro, men det finnes et par forskjellige tilnærminger du kan bruke når du oppretter makroen. Jeg er en fast tro på å prøve den enkle veien først, slik at du kan prøve følgende kort makro:

Sub PrintTwoTrays ()
Dim Stray As String

Stray = Options.DefaultTray
Options.DefaultTray = "skuff 1"
Application.PrintOut Filename: = ""
Options.DefaultTray = "Magasin 2"
Application.PrintOut Filename: = ""
Options.DefaultTray = Stray
End Sub

Denne makroen bruker DefaultTray eiendommen for å spesifisere et magasin for skriveren. Denne tilnærmingen setter innstillingen du kan se på Print-kategorien i dialogboksen Alternativer. (Se figur 1)

To trykte eksemplarer til forskjellige papirskuffer

Figur 1. Print-kategorien i dialogboksen Alternativer.

Legg merke til Standard skuff nedtrekkslisten i dialogboksen. Dette viser de ulike brett alternativer er tilgjengelige for skriveren. For de fleste skrivere, vil det være et magasin 1 og 2 alternativ, forutsatt at skriveren har minst to papirmagasiner. Den PrintTwoTrays makro setter alternativet eksplisitt i skuff 1, skriver ut en kopi, så skuff 2, skriver ut en kopi, og deretter setter innstillingen tilbake til sin opprinnelige verdi. Hvis du ser på kontrollen i dialogboksen og du ser forskjellige alternativer der, kan du endre makro å reflektere de riktige valgene for system-bare sørg for at du bruker den eksakte ordlyden vises i nedtrekkslisten.

Hvis den enkle tilnærmingen ikke fungerer, så vil du ønsker å bruke mer detaljert metode. Dette innebærer å sette opp to ulike skriver definisjoner, som hver benytter en annen skriver magasinet. Du hadde behov for å definere disse skriverne i Windows, og du vil være sikker på at når du skriver ut en testside (igjen, i Windows), benytter den til ønsket papirskuff.

  1. Definere en ny skriver i Windows for hver papirskuff du vil bruke. Hver skriverdefinisjon bør bruke et navn representant for en papirskuff.
  2. Høyreklikk på skrive definisjonen du opprettet for første papirskuff og endre egenskapene til skriveren slik at den skriver ut ved hjelp av den skuffen.
  3. Skriv ut en testside, og kontroller at den utnytter den forventede papirskuffen.
  4. Gjenta trinn 2 og 3 for den andre skriver definisjon, og pass på at du angir den andre papirskuff for det.

På dette punktet har du flere skriver definisjoner satt opp, og hver vil skrive ut på en annen papirskuff på den samme skriveren. Du kan nå spesifisere ønsket skriver, i en makro, slik at utskriften går til ønsket papirskuff.

Sub PrintTwoTrays ()
Dim sCurrentPrinter som String

sCurrentPrinter = Application.ActivePrinter
Application.ActivePrinter = "skuff 1 skriver"
Application.PrintOut Filename: = ""
Application.ActivePrinter = "skuff 2 skriver"
Application.PrintOut Filename: = ""
Application.ActivePrinter = sCurrentPrinter
End Sub

Du vil åpenbart ønsker å endre navnene skriver i makroen til å reflektere navnene du tildelt den nyopprettede skriverdefinisjoner.

WordTips er din kilde for kostnadseffektiv Microsoft Word trening. (Microsoft Word er den mest populære tekstbehandlingsprogrammet i verden.) Dette tipset (10644) gjelder for Microsoft Word 97, 2000 og 2003. Du kan finne en versjon av dette tipset for Båndet av Word (Word 2007 og senere ) her: To trykte eksemplarer til forskjellige papirskuffer.