|
bueno yo utilizo esta forma en un programa hecho en C++, lo cual no difiere mucho de lo que tendrias que hacer en delphi.
TPrinter *Prntr = Printer();
int wd = Prntr->PageWidth - 10;
int hg = Prntr->PageHeight - 10;
TRect r = Rect(10,10, wd, hg);
f = ExtractFileName(fName);
f.SetLength(f.Length() - 4);
Prntr->Title = "Drawing " + f;
Prntr->BeginDoc();
Prntr->Canvas->StretchDraw(r, bitmap->Picture->Bitmap );
Prntr->EndDoc();
|