image1 -> drucken.. nur wie

[zastu]

Moin,
kann mir jemand sagen wie ich den Inhalt eines Image Felds auf dinA4 grösse ausdrucken kann. Ich habe das ganze schon so versucht...

 TPrinter *Prntr = Printer();
Prntr->BeginDoc();
Prntr->Canvas->Draw(0, 0, Image1->Picture->Bitmap);
Prntr->EndDoc();

aber so wird der Ausdruck zu klein...

 

[fabian24]

Hallo guck mal ob dir das hilft:

TPrinter *Prntr = Printer();
Prntr->BeginDoc();
Prntr->Canvas->StretchDraw((Rect(1,1,3379,2200)), (Image1->Picture->Bitmap));
Prntr->EndDoc();

Ist für Querformat dürfte aber auch senkrecht gehen