002
04.05.2005, 12:06 Uhr
Veasel
|
hi, hatte mal ein kleines Programm für den Ausdruck eines Fensters geschrieben. Vielleicht hilft dir das ein bißchen weiter... ist aber schon sehr alt!!!!
| C++: |
void __fastcall TForm1::Button1Click(TObject *Sender)
{
TRect Rectangle;
TPrinter * Prntr = Printer();
bool needsnewpg;
Graphics::TBitmap *Picture = new Graphics::TBitmap();
try
{
Form1->Hide();
Picture = Screen->ActiveCustomForm->GetFormImage();
int Scalierung = Prntr->PageWidth/Picture->Width;
TRect r = Rect(200,200,Prntr->PageWidth - 200,Picture->Height * Scalierung + 200);
PrintDialog1->Execute();
//Drucken
Prntr->BeginDoc();
Prntr->Canvas->StretchDraw(r, Picture);
if (needsnewpg)
Prntr->NewPage();
Prntr->EndDoc();
Form1->Show();
}
catch(...)
{
MessageBeep(0);
}
delete Picture;
}
|
--
MFG Veasel |
