PDA

Vollständige Version anzeigen : Aktuellen Drucker wechseln auf FritzFax > Senden > auf vorherigen Drucker wechseln ?


AWSW
04.05.2001, 16:10
Hallo zusammen,

kann man über VBA den aktuell eingestellten Drucker wechseln auf FritzFax und auf FritzFax einen Bericht ausgeben und dann wieder auf den vorherigen Drucker wechseln ???

Also:
Aktueller Drucker > FritzFax > drucken auf FritzFax > wieder auf den verherigen Drucker wechseln :D

Wenn ja wie mache ich das ???

Danke

Stefan Kulpa
05.05.2001, 11:36
Hallo,

ob Fritz!Card oder sonstige Drucker - das Verfahren ist immer gleich. Zunächst brauchst Du die Infos zum gewünschten Drucker (siehe GetDeviceList()) und und dann rufst du die Methode ChangeDeviceAndPrint() auf. Das Drucken selbst ist nicht implementiert, da dies vom jeweiligen Objekt abhängig ist. Die entsprechende Stelle ist auskommentiert. Gegebenfalls kann man der Methode auch noch ein Objekt mitgeben, woraus hervorgeht, was zu Drucken ist. Wie auch immer, hier der Code für den "Rest":

<FONT SIZE=1 FACE=Courier New><FONT COLOR=#000080>Option</FONT> Compare Database

<FONT COLOR=#000080>Option</FONT> <FONT COLOR=#000080>Explicit</FONT>

<FONT COLOR=#000080>Private</FONT> <FONT COLOR=#000080>Const</FONT> WM_WININICHANGE <FONT COLOR=#000080>As</FONT> <FONT COLOR=#000080>Long</FONT> = &H1A
<FONT COLOR=#000080>Private</FONT> <FONT COLOR=#000080>Const</FONT> SMTO_NORMAL <FONT COLOR=#000080>As</FONT> <FONT COLOR=#000080>Long</FONT> = &H0
<FONT COLOR=#000080>Private</FONT> <FONT COLOR=#000080>Const</FONT> HWND_BROADCAST <FONT COLOR=#000080>As</FONT> <FONT COLOR=#000080>Long</FONT> = &HFFFF&

<FONT COLOR=#000080>Public</FONT> <FONT COLOR=#000080>Type</FONT> PrinterInfo_t
sDeviceName <FONT COLOR=#000080>As</FONT> <FONT COLOR=#000080>String</FONT>
sDriverName <FONT COLOR=#000080>As</FONT> <FONT COLOR=#000080>String</FONT>
sPort <FONT COLOR=#000080>As</FONT> <FONT COLOR=#000080>String</FONT>
<FONT COLOR=#000080>End</FONT> <FONT COLOR=#000080>Type</FONT>

<FONT COLOR=#000080>Private</FONT> <FONT COLOR=#000080>Declare</FONT> <FONT COLOR=#000080>Function</FONT> SendMessageTimeoutStr <FONT COLOR=#000080>Lib</FONT> "user32" <FONT COLOR=#000080>Alias</FONT> _
"SendMessageTimeoutA" _
(<FONT COLOR=#000080>ByVal</FONT> hwnd <FONT COLOR=#000080>As</FONT> <FONT COLOR=#000080>Long</FONT>, _
<FONT COLOR=#000080>ByVal</FONT> msg <FONT COLOR=#000080>As</FONT> <FONT COLOR=#000080>Long</FONT>, _
<FONT COLOR=#000080>ByVal</FONT> wParam <FONT COLOR=#000080>As</FONT> <FONT COLOR=#000080>Long</FONT>, _
<FONT COLOR=#000080>ByVal</FONT> lParam <FONT COLOR=#000080>As</FONT> <FONT COLOR=#000080>String</FONT>, _
<FONT COLOR=#000080>ByVal</FONT> fuFlags <FONT COLOR=#000080>As</FONT> <FONT COLOR=#000080>Long</FONT>, _
<FONT COLOR=#000080>ByVal</FONT> uTimeout <FONT COLOR=#000080>As</FONT> <FONT COLOR=#000080>Long</FONT>, _
lpdwResult <FONT COLOR=#000080>As</FONT> <FONT COLOR=#000080>Long</FONT>) <FONT COLOR=#000080>As</FONT> <FONT COLOR=#000080>Long</FONT>

<FONT COLOR=#000080>Private</FONT> <FONT COLOR=#000080>Declare</FONT> <FONT COLOR=#000080>Function</FONT> WriteProfileString <FONT COLOR=#000080>Lib</FONT> "kernel32" <FONT COLOR=#000080>Alias</FONT> _
"WriteProfileStringA" _
(<FONT COLOR=#000080>ByVal</FONT> lpszSection <FONT COLOR=#000080>As</FONT> <FONT COLOR=#000080>String</FONT>, _
<FONT COLOR=#000080>ByVal</FONT> lpszKeyName <FONT COLOR=#000080>As</FONT> <FONT COLOR=#000080>String</FONT>, _
<FONT COLOR=#000080>ByVal</FONT> lpszString <FONT COLOR=#000080>As</FONT> <FONT COLOR=#000080>String</FONT>) <FONT COLOR=#000080>As</FONT> <FONT COLOR=#000080>Long</FONT>

<FONT COLOR=#000080>Private</FONT> <FONT COLOR=#000080>Declare</FONT> <FONT COLOR=#000080>Function</FONT> GetProfileString <FONT COLOR=#000080>Lib</FONT> "kernel32" <FONT COLOR=#000080>Alias</FONT> _
"GetProfileStringA" _
(<FONT COLOR=#000080>ByVal</FONT> lpAppName <FONT COLOR=#000080>As</FONT> <FONT COLOR=#000080>String</FONT>, _
<FONT COLOR=#000080>ByVal</FONT> lpKeyName <FONT COLOR=#000080>As</FONT> <FONT COLOR=#000080>String</FONT>, _
<FONT COLOR=#000080>ByVal</FONT> lpDefault <FONT COLOR=#000080>As</FONT> <FONT COLOR=#000080>String</FONT>, _
<FONT COLOR=#000080>ByVal</FONT> lpReturnedString <FONT COLOR=#000080>As</FONT> <FONT COLOR=#000080>String</FONT>, _
<FONT COLOR=#000080>ByVal</FONT> nSize <FONT COLOR=#000080>As</FONT> <FONT COLOR=#000080>Long</FONT>) <FONT COLOR=#000080>As</FONT> <FONT COLOR=#000080>Long</FONT>

<FONT COLOR=#000080>Private</FONT> <FONT COLOR=#000080>Declare</FONT> <FONT COLOR=#000080>Function</FONT> GetProfileSection <FONT COLOR=#000080>Lib</FONT> "kernel32" <FONT COLOR=#000080>Alias</FONT> _
"GetProfileSectionA" _
(<FONT COLOR=#000080>ByVal</FONT> lpAppName <FONT COLOR=#000080>As</FONT> <FONT COLOR=#000080>String</FONT>, _
<FONT COLOR=#000080>ByVal</FONT> lpReturnedString <FONT COLOR=#000080>As</FONT> <FONT COLOR=#000080>String</FONT>, _
<FONT COLOR=#000080>ByVal</FONT> lngSize <FONT COLOR=#000080>As</FONT> <FONT COLOR=#000080>Long</FONT>) <FONT COLOR=#000080>As</FONT> <FONT COLOR=#000080>Long</FONT>
<FONT COLOR=#808080><HR></FONT>

<FONT COLOR=#000080>Public</FONT> <FONT COLOR=#000080>Function</FONT> ChangeDeviceAndPrint(uPrinter <FONT COLOR=#000080>As</FONT> PrinterInfo_t) <FONT COLOR=#000080>As</FONT> <FONT COLOR=#000080>Boolean</FONT>
<FONT COLOR=#008000>'// ============================================================================</FONT>
<FONT COLOR=#008000>'// Funktion: |Wechselt den aktuellen Drucker, führt einen Druckauftrag</FONT>
<FONT COLOR=#008000>'// |aus und setzt den Drucker zurück</FONT>
<FONT COLOR=#008000>'// ----------------------------------------------------------------------------</FONT>
<FONT COLOR=#008000>'// Voraussetzungen: |Druckerinfos müssen bekannt sein (siehe Parameter)</FONT>
<FONT COLOR=#008000>'// ----------------------------------------------------------------------------</FONT>
<FONT COLOR=#008000>'// Parameter: |Die Druckerinformation ist dreigeteilt, entsprechend</FONT>
<FONT COLOR=#008000>'// |werden folgende Infos benötigt:</FONT>
<FONT COLOR=#008000>'// |sDeviceName - Name des Druckers Bsp.: HP LaserJet 6P</FONT>
<FONT COLOR=#008000>'// |sDriverName - Name des "Treibers" Bsp.: winspool</FONT>
<FONT COLOR=#008000>'// |sPort - Anschluss Bsp.: LPT1:</FONT>
<FONT COLOR=#008000>'// |Alle Infos werden in einer Strukturvariablen vom Typ</FONT>
<FONT COLOR=#008000>'// |PrinterInfo_t übergeben.</FONT>
<FONT COLOR=#008000>'// ----------------------------------------------------------------------------</FONT>
<FONT COLOR=#008000>'// Rückgabe: |True bei Erfolg, False im Fall eines "Fehlers"</FONT>
<FONT COLOR=#008000>'// ----------------------------------------------------------------------------</FONT>
<FONT COLOR=#008000>'// Erstellt: |05.05.2001; Stefan Kulpa</FONT>
<FONT COLOR=#008000>'// ----------------------------------------------------------------------------</FONT>
<FONT COLOR=#008000>'// Geändert: |</FONT>
<FONT COLOR=#008000>'// |</FONT>
<FONT COLOR=#008000>'// ============================================================================</FONT>
ChangeDeviceAndPrint = <FONT COLOR=#000080>False</FONT>
<FONT COLOR=#008000>'// ============================================================================</FONT>
<FONT COLOR=#008000>'// Aktuellen Drucker ermitteln und für Rückstellung merken;</FONT>
<FONT COLOR=#008000>'// der aktuelle Drucker wird dabei aus der WIN.INI gelesen</FONT>
<FONT COLOR=#008000>'// ============================================================================</FONT>
<FONT COLOR=#000080>Const</FONT> MAX_SIZE <FONT COLOR=#000080>As</FONT> <FONT COLOR=#000080>Long</FONT> = 2048

<FONT COLOR=#000080>Dim</FONT> uCurrentPrinter <FONT COLOR=#000080>As</FONT> PrinterInfo_t
<FONT COLOR=#000080>Dim</FONT> sCurrentPrinter <FONT COLOR=#000080>As</FONT> <FONT COLOR=#000080>String</FONT>
<FONT COLOR=#000080>Dim</FONT> sBuffer <FONT COLOR=#000080>As</FONT> <FONT COLOR=#000080>String</FONT>
<FONT COLOR=#000080>Dim</FONT> bDiffPrinters <FONT COLOR=#000080>As</FONT> <FONT COLOR=#000080>Boolean</FONT>
<FONT COLOR=#000080>Dim</FONT> lCounter <FONT COLOR=#000080>As</FONT> <FONT COLOR=#000080>Long</FONT>
<FONT COLOR=#000080>Dim</FONT> lOffset <FONT COLOR=#000080>As</FONT> <FONT COLOR=#000080>Long</FONT>
<FONT COLOR=#000080>Dim</FONT> lResult <FONT COLOR=#000080>As</FONT> <FONT COLOR=#000080>Long</FONT>

<FONT COLOR=#000080>On</FONT> <FONT COLOR=#000080>Error</FONT> GoTo HandleErrors
sCurrentPrinter = Space(MAX_SIZE)
lResult = _
GetProfileString("Windows", "Device", "", sCurrentPrinter, MAX_SIZE - 1)
sCurrentPrinter = Left$(sCurrentPrinter, lResult)
<FONT COLOR=#008000>'// ============================================================================</FONT>
<FONT COLOR=#008000>'// Das Ergebnis könnte so aussehen: HP LaserJet 6P,winspool,LPT1:</FONT>
<FONT COLOR=#008000>'// ============================================================================</FONT>
<FONT COLOR=#008000>'// Testausgabe: Debug.Print sCurrentPrinter</FONT>
<FONT COLOR=#008000>'// ============================================================================</FONT>
<FONT COLOR=#008000>'// Diese Daten aufschlüsseln und in die Strukturvariable schreiben;</FONT>
<FONT COLOR=#008000>'// aus Kompatibilitätsgründen wird auf die Split-Funktion (ab VBA6) verzichtet</FONT>
<FONT COLOR=#008000>'// ============================================================================</FONT>
<FONT COLOR=#008000>'// Hinweis: die folgende Schleife setzt voraus, dass die Druckerinfos</FONT>
<FONT COLOR=#008000>'// vollständig sind. Weitere Prüfungen sind hier nicht implementiert!</FONT>
<FONT COLOR=#008000>'// ============================================================================</FONT>
<FONT COLOR=#000080>Do</FONT> <FONT COLOR=#000080>While</FONT> Len(sCurrentPrinter) > 0
lOffset = InStr(sCurrentPrinter, ",")
<FONT COLOR=#000080>If</FONT> lOffset > 0 <FONT COLOR=#000080>Then</FONT>
<FONT COLOR=#008000>'// Ersten oder zweiten Eintrag gefunden</FONT>
<FONT COLOR=#000080>With</FONT> uCurrentPrinter
<FONT COLOR=#000080>If</FONT> Len(.sDeviceName) = 0 <FONT COLOR=#000080>Then</FONT>
.sDeviceName = Mid$(sCurrentPrinter, 1, lOffset - 1)
<FONT COLOR=#000080>Else</FONT>: .sDriverName = Mid$(sCurrentPrinter, 1, lOffset - 1)
<FONT COLOR=#000080>End</FONT> <FONT COLOR=#000080>If</FONT>
<FONT COLOR=#000080>End</FONT> <FONT COLOR=#000080>With</FONT>
sCurrentPrinter = Mid$(sCurrentPrinter, lOffset + 1)
<FONT COLOR=#000080>Else</FONT>
<FONT COLOR=#008000>'// Letzten Eintrag gefunden</FONT>
uCurrentPrinter.sPort = sCurrentPrinter
sCurrentPrinter = vbNullString
<FONT COLOR=#000080>End</FONT> <FONT COLOR=#000080>If</FONT>
<FONT COLOR=#000080>Loop</FONT>
<FONT COLOR=#008000>'// ============================================================================</FONT>
<FONT COLOR=#008000>'// Neuen Standarddrucker setzen, sofern es Unterschiede gibt</FONT>
<FONT COLOR=#008000>'// ============================================================================</FONT>
bDiffPrinters = <FONT COLOR=#000080>False</FONT> <FONT COLOR=#008000>'True, wenn es unterschiedliche Drucker sind:</FONT>
<FONT COLOR=#000080>With</FONT> uPrinter
<FONT COLOR=#000080>If</FONT> .sDeviceName <> uCurrentPrinter.sDeviceName <FONT COLOR=#000080>Or</FONT> _
.sDriverName <> uCurrentPrinter.sDriverName <FONT COLOR=#000080>Or</FONT> _
.sPort <> uCurrentPrinter.sPort <FONT COLOR=#000080>Then</FONT> bDiffPrinters = <FONT COLOR=#000080>True</FONT>
<FONT COLOR=#000080>End</FONT> <FONT COLOR=#000080>With</FONT>
<FONT COLOR=#000080>If</FONT> bDiffPrinters <FONT COLOR=#000080>Then</FONT>
<FONT COLOR=#008000>'// ------------------------------------------------------------------------</FONT>
<FONT COLOR=#008000>'// WIN.INI Eintrag vorbereiten</FONT>
<FONT COLOR=#008000>'// ------------------------------------------------------------------------</FONT>
<FONT COLOR=#000080>With</FONT> uPrinter
sBuffer = .sDeviceName & "," & .sDriverName & "," & .sPort
<FONT COLOR=#000080>End</FONT> <FONT COLOR=#000080>With</FONT>
<FONT COLOR=#008000>'// ------------------------------------------------------------------------</FONT>
<FONT COLOR=#008000>'// Eintrag in die WIN.INI schreiben</FONT>
<FONT COLOR=#008000>'// ------------------------------------------------------------------------</FONT>
<FONT COLOR=#000080>Call</FONT> WriteProfileString("Windows", "Device", sBuffer)
<FONT COLOR=#008000>'// ------------------------------------------------------------------------</FONT>
<FONT COLOR=#008000>'// Eine "Mitteilung" an das gesamte System über den Druckerwechsel senden!</FONT>
<FONT COLOR=#008000>'// ------------------------------------------------------------------------</FONT>
<FONT COLOR=#000080>Call</FONT> SendMessageTimeoutStr(HWND_BROADCAST, _
WM_WININICHANGE, _
0, _
"Windows", _
SMTO_NORMAL, _
1000, _
0)
<FONT COLOR=#000080>End</FONT> <FONT COLOR=#000080>If</FONT>
<FONT COLOR=#008000>'// ============================================================================</FONT>
<FONT COLOR=#008000>'// Ab hier den Druckauftrag durchführen</FONT>
<FONT COLOR=#008000>'// ============================================================================</FONT>
<FONT COLOR=#008000>'DoCmd.PrintOut o.ä. ...</FONT>
<FONT COLOR=#008000>'// ============================================================================</FONT>
<FONT COLOR=#008000>'// Alten Standarddrucker wieder zurücksetzen</FONT>
<FONT COLOR=#008000>'// ============================================================================</FONT>
<FONT COLOR=#000080>If</FONT> bDiffPrinters <FONT COLOR=#000080>Then</FONT>
<FONT COLOR=#008000>'// ------------------------------------------------------------------------</FONT>
<FONT COLOR=#008000>'// WIN.INI Eintrag vorbereiten</FONT>
<FONT COLOR=#008000>'// ------------------------------------------------------------------------</FONT>
<FONT COLOR=#000080>With</FONT> uCurrentPrinter
sBuffer = .sDeviceName & "," & .sDriverName & "," & .sPort
<FONT COLOR=#000080>End</FONT> <FONT COLOR=#000080>With</FONT>
<FONT COLOR=#008000>'// ------------------------------------------------------------------------</FONT>
<FONT COLOR=#008000>'// Eintrag in die WIN.INI schreiben</FONT>
<FONT COLOR=#008000>'// ------------------------------------------------------------------------</FONT>
<FONT COLOR=#000080>Call</FONT> WriteProfileString("Windows", "Device", sBuffer)
<FONT COLOR=#008000>'// ------------------------------------------------------------------------</FONT>
<FONT COLOR=#008000>'// Eine "Mitteilung" an das gesamte System über den Druckerwechsel senden!</FONT>
<FONT COLOR=#008000>'// ------------------------------------------------------------------------</FONT>
<FONT COLOR=#000080>Call</FONT> SendMessageTimeoutStr(HWND_BROADCAST, _
WM_WININICHANGE, _
0, _
"Windows", _
SMTO_NORMAL, _
1000, _
0)
<FONT COLOR=#000080>End</FONT> <FONT COLOR=#000080>If</FONT>
ChangeDeviceAndPrint = <FONT COLOR=#000080>True</FONT>

ExitThis:
<FONT COLOR=#000080>Exit</FONT> <FONT COLOR=#000080>Function</FONT>

HandleErrors:
<FONT COLOR=#000080>Dim</FONT> sErrMsg <FONT COLOR=#000080>As</FONT> <FONT COLOR=#000080>String</FONT>
sErrMsg = "Während eines Druckversuchs ist der Fehler " & Err.Number & _
" aufgetreten:" & vbCrLf & Err.Description
MsgBox sErrMsg, vbExclamation, "Fehler"
Resume ExitThis

<FONT COLOR=#000080>End</FONT> <FONT COLOR=#000080>Function</FONT>
<FONT COLOR=#808080><HR></FONT>

<FONT COLOR=#000080>Public</FONT> <FONT COLOR=#000080>Sub</FONT> GetDeviceList()
<FONT COLOR=#008000>'// ============================================================================</FONT>
<FONT COLOR=#008000>'// Hilfsfunktion um alle installierten Drucker zu ermitteln;</FONT>
<FONT COLOR=#008000>'// kann dazu benutzt werden, die Infos für ChangeDeviceAndPrint zu erhalten</FONT>
<FONT COLOR=#008000>'// ============================================================================</FONT>
<FONT COLOR=#000080>Const</FONT> MAX_SECTION <FONT COLOR=#000080>As</FONT> <FONT COLOR=#000080>Long</FONT> = 10000

<FONT COLOR=#000080>Dim</FONT> lCounter <FONT COLOR=#000080>As</FONT> <FONT COLOR=#000080>Long</FONT>
<FONT COLOR=#000080>Dim</FONT> lOffset <FONT COLOR=#000080>As</FONT> <FONT COLOR=#000080>Long</FONT>
<FONT COLOR=#000080>Dim</FONT> sBuffer <FONT COLOR=#000080>As</FONT> <FONT COLOR=#000080>String</FONT>

sBuffer = Space(MAX_SECTION)
lCounter = GetProfileSection("Devices", sBuffer, MAX_SECTION - 1)
<FONT COLOR=#008000>'// ----------------------------------------------------------------------------</FONT>
<FONT COLOR=#008000>'// Das Ergebnis ist eine Liste mit allen Druckerinfos getrennt durch Chr(0);</FONT>
<FONT COLOR=#008000>'// aus Kompatibilitätsgründen wird auf die Split-Funktion (ab VBA6) verzichtet</FONT>
<FONT COLOR=#008000>'// ----------------------------------------------------------------------------</FONT>
<FONT COLOR=#008000>'// Mögliche Ausgabe (Beispiel):</FONT>
<FONT COLOR=#008000>'// HP LaserJet 6P=winspool,LPT1:</FONT>
<FONT COLOR=#008000>'// HP DeskJet 820Cxi=winspool,LPT1:</FONT>
<FONT COLOR=#008000>'// Fax=winspool,Ne00:</FONT>
<FONT COLOR=#008000>'// Acrobat PDFWriter = winspool, LPT1:</FONT>
<FONT COLOR=#008000>'// ----------------------------------------------------------------------------</FONT>
sBuffer = Left$(sBuffer, lCounter)
<FONT COLOR=#000080>Do</FONT> <FONT COLOR=#000080>While</FONT> Len(sBuffer) > 0
lOffset = InStr(sBuffer, vbNullChar)
<FONT COLOR=#000080>If</FONT> lOffset > 0 <FONT COLOR=#000080>Then</FONT>
Debug.<FONT COLOR=#000080>Print</FONT> Mid$(sBuffer, 1, lOffset - 1)
sBuffer = Mid$(sBuffer, lOffset + 1)
<FONT COLOR=#000080>Else</FONT>
Debug.<FONT COLOR=#000080>Print</FONT> sBuffer
sBuffer = vbNullString
<FONT COLOR=#000080>End</FONT> <FONT COLOR=#000080>If</FONT>
<FONT COLOR=#000080>Loop</FONT>
<FONT COLOR=#008000>'// ----------------------------------------------------------------------------</FONT>
<FONT COLOR=#008000>'// Der gewünschte Eintrag muss für den Druckerwechsel entsprechend aufbereitet</FONT>
<FONT COLOR=#008000>'// werden; Beispiel: 'HP LaserJet 6P=winspool,LPT1:'</FONT>
<FONT COLOR=#008000>'// ----------------------------------------------------------------------------</FONT>
<FONT COLOR=#000080>Dim</FONT> sPrinter <FONT COLOR=#000080>As</FONT> <FONT COLOR=#000080>String</FONT>
<FONT COLOR=#000080>Dim</FONT> sDriver <FONT COLOR=#000080>As</FONT> <FONT COLOR=#000080>String</FONT>
<FONT COLOR=#000080>Dim</FONT> sPort <FONT COLOR=#000080>As</FONT> <FONT COLOR=#000080>String</FONT>

<FONT COLOR=#008000>'// Beispiel:</FONT>
sBuffer = "HP LaserJet 6P=winspool,LPT1:"

sPrinter = _
Left$(sBuffer, InStr(sBuffer, "=") - 1)

sDriver = _
Mid$(sBuffer, Len(sPrinter) + 2, InStr(sBuffer, ",") - Len(sPrinter) - 2)

sPort = _
Mid$(sBuffer, InStr(sBuffer, ",") + 1)

Debug.<FONT COLOR=#000080>Print</FONT> "Druckername: "; sPrinter
Debug.<FONT COLOR=#000080>Print</FONT> "Druckertreiber: "; sDriver
Debug.<FONT COLOR=#000080>Print</FONT> "Druckerport: "; sPort

<FONT COLOR=#008000>'// Beispielaufruf der Funktion ChangeDeviceAndPrint:</FONT>
<FONT COLOR=#000080>Dim</FONT> uNewPrinter <FONT COLOR=#000080>As</FONT> PrinterInfo_t
<FONT COLOR=#000080>With</FONT> uNewPrinter
.sDeviceName = sPrinter
.sDriverName = sDriver
.sPort = sPort
<FONT COLOR=#000080>End</FONT> <FONT COLOR=#000080>With</FONT>
ChangeDeviceAndPrint uNewPrinter

<FONT COLOR=#000080>End</FONT> <FONT COLOR=#000080>Sub</FONT>
<FONT COLOR=#808080><HR></FONT>

</FONT>

HTH,

AWSW
05.05.2001, 13:23
SUPER :D

Vielen Dank - Das hilft mir sehr weiter, da ich das Thema schon fast aufgegeben hatte :(

Nochmal