Entwickler-Ecke

Grafische Benutzeroberflächen (VCL & FireMonkey) - fehler beim Form drucken


Lecram - Do 01.10.09 18:14
Titel: fehler beim Form drucken
Hallo wenn ich auf drucken gehe kommt ein Fehler
"Project Project1.exe raised exception dass EPrinter with message 'Printer in Progress'"
Was kann ich dagen machen und wie

Delphi-Quelltext 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
 
var
   XDest, YDest, XSrc, YSrc: Integer;
   PWidth, PHeight: integer;
   printer: TPrinter;
begin
   XDest:=50;
   YDest:=50; 
   XSrc:=0;
   YSrc:=0; 
   PWidth:=self.Width;
   PHeight:=self.Height;  
   printer.BeginDoc;
   BitBlt(printer.Canvas.handle, XDest, YDest, PWidth, PHeight, self.Canvas.handle, XSrc, YSrc, SRCCOPY);
   printer.EndDoc;
end;


Moderiert von user profile iconNarses: Delphi-Tags hinzugefügt


jaenicke - Fr 02.10.09 11:35
Du hast die Variable printer noch einmal lokal deklariert statt die globale Variable zu benutzen, die bereits existiert... :autsch:
user profile iconLecram hat folgendes geschrieben Zum zitierten Posting springen:

Delphi-Quelltext 
1:
2:
3:
4:
5:
6:
 
var
   [...]
   printer: TPrinter;
begin
   [...]
end;
Da du printer nie initialisierst, also das Objekt gar nicht existiert, gibt es natürlich einen Fehler.


Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!