Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Kopiendruck
Autor: Soulfly
Datum: 17.05.04 13:17
Ich hab das jetzt mit einer Schleife gelöst. Allerdings scheint die Umstellung des Standarddruckers so schnell zu gehen, das der Druck nur im Debugmodus funktioniert. Selbst ein Sleep scheint da nichts zu bringen. Hat irgend jemand eine Idee für mich ? If DruckFehler = True Then MsgBox " Abbruch ! Fax nicht gefunden !" Else ' Faxgerät SetPrinterDefault (Fax) Durchlauf = ListView1.ListItems.Count 'ListView durchlaufen zum Faxen For i = 1 To Durchlauf MousePointer = vbHourglass If ListView1.ListItems(i).Checked = True Then Quelle = aktPath & "\" & ListView1.ListItems(i) Printer.Orientation = vbPRORLandscape 'Ausdruck ShellExecute Me.hWnd, "print", Quelle, "", "", 11 If Druckerwahl = True Then SetPrinterDefault (DruckerNeu) 'Ausdruck For j = 1 To Kopien ShellExecute Me.hWnd, "print", Quelle, "", "", 11 Next End If End If Next MousePointer = vbDefault End If

Kopiendruck	615	Soulfly	17.05.04 11:45
Re: Kopiendruck	366	Soulfly	17.05.04 13:17

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen