Print TDBGrid via PageControl und Printdialog Druckausgabe zu klein

[lionell]

Hallo,
nachdem ich umständlich ein TDBGrid in ein TabSheet einer Pagecontrol verpackt habe um es zu drucken, bekomme ich als Ausgabe leider nur "Pictogramme" gedruckt. Auch manuelle Angabe von Größe und Format erbrachte nix.

Print->Options.Clear();
  Print->Options << poPageNums << poSelection;
  Print->FromPage = 1;
  Print->MinPage = 1;
  Print->ToPage = PageControl1->PageCount;
  Print->MaxPage = PageControl1->PageCount;
  if (Print->Execute())
  {
	int Start, Stop;
	switch (Print->PrintRange)
	{
	  case prSelection:
		Start = PageControl1->ActivePage->PageIndex;
		Stop = Start;
		break;
	  case prPageNums:
		Start = Print->FromPage - 1;
		Stop =  Print->ToPage - 1;
		break;
	  default:
		Start = Print->MinPage - 1;
		Stop = Print->MaxPage - 1;
		break;
	}
	Printer()->BeginDoc();
	for (int i = Start; i <= Stop; i++)
	{
	  PageControl1->Pages[i]->PaintTo(Printer()->Handle, 1, 1);
	  if (i != Stop)
		Printer()->NewPage();
	}
	Printer()->EndDoc();
  }

[Christian Marquardt]

Sicherlich, ein PaintTo zu einem Drucker wird bei einer Bildschirmauflösung von 96 DPI und einer Druckerauflösung von 1200 DPI nur etwas "Kleines" erzeugen.

Es gibt zu diesem Thema div. Einträge hier -> Suchfunktion

[lionell]

Hi, erst mal danke
Prinzipiell würde ich das Grind auch direkt drucken, aber so richtig erfolgreiche Beispiele finde ich nicht. Hast du noch einen anderen von mir aus auch unkonventionellen Tip als mich auf die Suchfunktion zu verweisen?

[Manfred Pawelzik]

___Link___

[lionell]

PrintDialog->Execute();
Form->Print();

damit funktionierts, mehr brauch ich nicht, Danke