Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Drucken
Autor: wa_gru
Datum: 08.06.06 19:29
Habe jetzt folgende Lösung gefunden, aber die Idee war richtig. Private Sub Command1_Click() 'driveListbox 'FileListbox SavePicture picDruck.Image, "Druck1.BMP" drvLaufwerk.Drive = Left$(App.path, 2) '** Laufwerksbuchstaben setzen lstVerz.path = drvLaufwerk.Drive OldScaleMode = Printer.ScaleMode For i = 0 To lstVerz.ListCount - 1 strDatei = lstVerz.List(i) Printer.Print "" Printer.PaintPicture LoadPicture(strDatei), 0, 0 Printer.EndDoc If ExistiertDatei(strDatei) Then DeleteFile strDatei Next i Printer.ScaleMode = OldScaleMode lstVerz.Refresh End Sub

Drucken	650	wa_gru	07.06.06 17:52
Re: Drucken	361	Zardoz	07.06.06 18:27
Re: Drucken	374	wa_gru	07.06.06 19:39
Re: Drucken	387	Zardoz	07.06.06 20:02
Re: Drucken	383	wa_gru	07.06.06 21:25
Re: Drucken	396	wa_gru	08.06.06 19:29

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