G
hallo,
void __fastcall TForm1::SB_DruckenClick(TObject *Sender)
{
// Aktion des "Dialog Drucken", PrintDialog wird geöffnet
if(Form1->PrintDialog1->Execute())
{
Printer()->BeginDoc();
int ind = PageControl1->ActivePage->PageIndex;
TMetafile* pPic = new TMetafile();
PageControl1->Canvas->Draw(150, 350, pPic);
if(PageControl1->ActivePage->PageIndex);
Printer()->NewPage();
Printer()->EndDoc();
*/
}
}
Drucken möchte ich den aktuellen PageIndex der ein Grafik ist (Metafile). Ohne neues Objekt, also nur mit PaintTo funzt das zwar, aber halt nur etwa 5 x 6 cm gross, was noch nicht einmal der Bildschirmgrösse entspricht. Nun habe ich es mit Canavs probiert da tut sich nix bzw. habe da wohl schon Probs mit übergeben oder so.
mfg
gil