title image


Smiley Re: Wieder mal Thema 'Standarddrucker' (VB6)
Hallo Jupp,



ich bin mir nicht sicher, ob es hilft. In VBA6 (Office) geht es so:

' Attribute VB_Name = "modSwitchPrinter"

' Drucker wechseln und zurücksetzen auf Standarddrucker

'

Sub SwitchPrinter()

Dim strActivePrinter As String

' Get active printer.

strActivePrinter = Application.ActivePrinter

' Change to the Microsoft Fax printer driver.

Application.ActivePrinter = "Microsoft Fax"

' Print the active document to Fax.

ActiveDocument.PrintOut

' Change back to the default printer.

Application.ActivePrinter = strActivePrinter

End Sub

'

Sub AktiverDrucker()

'

With Dialogs(wdDialogFilePrintSetup)

' Gewünschten Drucker eintragen

' .Printer = "Epson Stylus COLOR on LPT1:"

.Printer = "Epson Stylus schwarz-weiss on LPT1:"

.DoNotSetAsSysDefault = True

.Execute

End With

'

strPrinter = ActivePrinter

MsgBox strPrinter, , "Dialog FilePrint Setup"

End Sub

      Hubert



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: