Hilfe, mein Drucker spinnt!

[fes]

Hallo zusammen
ich möchte eigentlich ein ganz einfaches Bild ausdrucken...
es hat die größe 1024*768.
Ich drucke das Bild im Querformat.
Ich drucke es über folgenden code:

Delphi-Quellcode:

If PrintDialog1.execute then
begin
printer.begindoc;
printer.canvas.Draw(1,1,image.Picture.Bitmap);
printer.enddoc;
end;

Das Problem ist, dass das Bild zwar gedruckt wird, aber nur ungefähr in der Größe 10*10. Es wird links oben ins Eck gequetscht.
Was mach ich falsch
Hab schon in der Dp gesucht, aber nix gefuden.
Hoffe ihr könnt mir helfen...




mfg fes

[shmia]

Dein Drucker spinnt nicht, sondern er hat eine wesentlich grössere Auflösung als dein Bildschirm.
siehe: Probleme beim Ausdruck von Bitmaps