WORD; standaard printer teruglaten komen na sluiten document

[Rwin]

Situatie:

Men opent in WORD een document in word en dat print men. Het document wordt geprint met de etikettenprinter daar het een etiket is .

(even tussenhaakjes: de etikettenprinter is niet de standaardprinter. De standaardprinter is de HP5000)

Daarna sluit men dat document en opent men een ander document. Dit wil men printen. Als je dan op het figuurtje van de printer klikt (dus NIET via Bestand-->Afrdukken) dan gebruikt WORD de laatst gebruikte printer. Aangezien dat in dit geval niet de standaardprinter is wordt er vaak een brief naar de etikettenprinter gestuurd. (per ongeluk)

Is er een oplossing om WORD standaard na afsluiten van een document weer naar de standaardprinter te laten afdrukken?

thnx

[Coffeemonster]

Je zou een macro AutoClose kunnen maken in het document waarin je met het commando ActivePrinter= de standaard printer selecteert. Dit werkt het eenvoudigst als de standaard printer overal waar het document wordt gebruikt hetzelfde is. Anders moet je met een AutoOpen-macro op de een of andere wijze (hidden text?) de printernaam (kan je opvragen met ActivePrinter) opslaan en die in de AutoClose-macro weer selecteren.

[KingRichard]

Nog beter zou zijn in Normal.dot (in ThisDocument):

Visual Basic:

Private Sub Document_Close()
   ActivePrinter = "\\MYPRINTSRVR\P01"
End Sub

Private Sub Document_New()
   ActivePrinter = "\\MYPRINTSRVR\P01"
End Sub

Private Sub Document_Open()
   ActivePrinter = "\\MYPRINTSRVR\P01"
End Sub

Waarschijnlijk is alleen Document_Close() voldoende, denk ik. Hierboven zie je de overkill-methode .

[Rwin]

eh...
Maar als ik het goed begrijp moet dan het geopende document dus al die printernaam hebben. En als mensen een email met een document krijgen?
En die macro's, moeten die altijd handmatig aan of uit gezet worden?

Sorry voor de macron00b-vragen, maar macro's ken ik (nog) niet echt.

[Coffeemonster]

Even de volgende code in het document zetten:

Visual Basic:

Public Printernaam As String

Sub AutoOpen()
    Printernaam = ActivePrinter
End Sub

Sub AutoClose()
    ActivePrinter = Printernaam
End Sub

Hierbij sla je de naam van de actieve printer op het moment van openen op in een variabele, en maak je die weer actief op het moment van sluiten van het document.

Je krijgt nu wel een melding dat er een macro in het document zit, maar als je het bestand naar iemand e-mailt, kan je dat vermelden, dan weet 'ie ook waar 'ie aan toe is

[KingRichard]

Normal.dot is het standaardsjabloon van Word, dat wordt geladen zodra je Word opstart. Hierin staan alle door de gebruiker te wijzigen instellingen.
In Normal.dot heb je ook de mogelijkheid het gedrag van Word aan te vullen als er een document geopend, gesloten of gecreëerd wordt; dit is wat in mijn post de bedoeling is. Je moet natuurlijk wel "\\MYPRINTSRVR\P01" vervangen door de locatie van de standaardprinter.

Rwin schreef op 10 September 2003 @ 15:24:
[...]
Sorry voor de macron00b-vragen, maar macro's ken ik (nog) niet echt.

In dat geval zou ik maar eens wat gaan rondfietsen in de Help van de VBA-editor en van Word zelf. Zoek bijvoorbeeld een naar "Sjabloon Normal".