[Word] Eindcommando voor standaardprinter in macro

[Verwijderd]

Hallo,

Ik ben op het moment in word bezig met een macro. Nou heb ik even een klein vraagje. Op google zoeken mocht niet echt baten. Althans daarvan kreeg ik de indruk dat wat ik wil niet mogelijk is.

Ik wil aan het einde van mijn printmacro dat een commando vermelden zodat de standaardprinter die in windows ingesteld staat weer geselecteerd wordt. Tot nu toe heb ik alleen nog maar gezien dat er in dat laatste commando gewoon de naam van een printer wordt vermeld (standaard of niet).

Bijv > ActivePrinter = "receptieprinter"

Ik wil > ActivePrinter = "Standard Printer" of wat dan ook het goede commando is hiervoor. Zodat dit niet naamgebonden is.

Gaarne even wat opheldering hierover,

BVD

[Gomez12]

net voor je printerverandering even neerzetten

code:

dim TmpActivePrinter as string

TmpActivePrinter=Activeprinter
... Nu printen etc...
Activeprinter=TmpActivePrinter

Gewoon even eerst de huidige printer opslaan. Dan veranderen +printen en dan weer terugzetten. Let trouwens wel op papierbakken etc. Deze willen nog wel eens verspringen als je van printer wisselt ( ik sla daarom het hele printer object op en restore het hele printer object weer )

Standaard printer is iets moeilijker te doen. Omdat word zelf ook nog een printerinstelling bijhoud.. En ik vermoed dat je alleen de printer van word kan vinden ( en dit hoeft geen standaard printer te zijn )

[Verwijderd]

Standaard printer is iets moeilijker te doen. Omdat word zelf ook nog een printerinstelling bijhoud.. En ik vermoed dat je alleen de printer van word kan vinden ( en dit hoeft geen standaard printer te zijn )

Dat vermoedde ik idd al

Maarja,

Ik ga het even proberen.


Alvast bedankt voor je reactie.


UPDATE:

Nou ik doe denk ik iets fout.

code:

Sub Duplex_MF2()
'
' Duplex_MF2 Macro
'
    Dim TmpActivePrinter As String
    TmpActivePrinter = "Activeprinter"
    ActivePrinter = "printer kantoortuin"
    Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
        wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
        Collate:=True, Background:=True, PrintToFile:=False
    ActivePrinter = "TmpActivePrinter"
End Sub

Hij geeft iig bij de laatste string: ActivePrinter = "TmpActivePrinter" een error

[ Voor 122% gewijzigd door Verwijderd op 07-07-2006 11:59 ]

[Verwijderd]

Verwijderd schreef op vrijdag 07 juli 2006 @ 11:26:

code:

Sub Duplex_MF2()
'
' Duplex_MF2 Macro
'
    Dim TmpActivePrinter As String
    TmpActivePrinter = application.Activeprinter
    application.ActivePrinter = "printer kantoortuin"
    Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
        wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
        Collate:=True, Background:=True, PrintToFile:=False
    application.ActivePrinter = TmpActivePrinter
End Sub

[ Voor 6% gewijzigd door Verwijderd op 07-07-2006 13:22 ]

[Verwijderd]

Kgaat et ff proberen


Update: Ok werkt prima... bedankt!

[ Voor 50% gewijzigd door Verwijderd op 07-07-2006 13:39 ]