Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Drucken und kein Ende
Autor: Anke
Datum: 21.10.02 14:02
Hi! Ich habe da folgendes Problem: Erstmal den Code: ------------------------------ Private Sub mnuPrint_Click() ' wird im "CommonDialog" auf "Abbrechen" geklickt, ' wird (wenn CancelError = True ist) ein Laufzeitfehler ausgelöst. Dim BeginPage, EndPage, NumCopies, i On Error Resume Next With CommonDialog1 .CancelError = True ' Dialogfeld Drucken anzeigen .ShowPrinter ' vom Benutzer ausgewählte Werte vom Dialogfeld abrufen BeginPage = .FromPage EndPage = .ToPage NumCopies = .Copies For i = 1 To NumCopies ' hier gegebenenfalls Schriftart, Schriftgröße, etc. vorgeben Printer.Print "" Printer.Print "" Printer.FontSize = 15 Printer.CurrentX = 700 Printer.CurrentY = 700 Printer.Print "Überschrift 1" Printer.FontSize = .FontSize If Check3.Value Then Printer.Print "Text" Else Printer.Print "" End If Printer.Print Text1.Text Printer.EndDoc Next i End With End Sub ------------------------------ Immer wenn ich jetzt auf Drucken gehe, dnn öffnet sich der Drucken-Dialog. Soweit alles Ok. Wenn ich jetzt jedoch im dialog auf abbrechen klicke, dann druckt der trotzdem. Warum? Danke für die Hilfe, Anke

Drucken und kein Ende	82	Anke	21.10.02 14:02
Re: Drucken und kein Ende	234	MrByte	21.10.02 14:16
Re: Drucken und kein Ende	240	Dieter	21.10.02 14:16

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