D7PE PaintTo und F1. Dort erscheint ein Beispiel wie man PageControl
ausdrucken kann. Druckt leider nicht, ich mußte 5 Zeilen verschieben.
Jetzt erfolgt ein Ausdruck,aber sehr klein. Mit den vielen Beispielen
hier im Forum habe ich es nicht hinbekommen. Wer kann mir Tipps geben,
wie ich den Ausdruck größer bekomme. Es geht zwar bei mir um ein
StringGrid. Ich bekomme dort den Ausdruck komplett über mehere Seiten,
aber eben auch klein.
Viele Dank im Voraus
Günter
procedure TForm1.Button1Click(Sender: TObject);
var
I, Start, Stop: Integer;
begin
// Folgende 5 Zeilen in den Printdialog verschoben, da hier keine Funktion
{PrintDialog1.Options := [poPageNums, poSelection];
PrintDialog1.FromPage := 1;
PrintDialog1.MinPage := 1;
PrintDialog1.ToPage := PageControl1.PageCount;
PrintDialog1.MaxPage := PageControl1.PageCount; }
if PrintDialog1.Execute then
begin
PrintDialog1.Options := [poPageNums, poSelection];
PrintDialog1.FromPage := 1;
PrintDialog1.MinPage := 1;
PrintDialog1.ToPage := PageControl1.PageCount;
PrintDialog1.MaxPage := PageControl1.PageCount;
{ Ausgewählten Druckbereich ermitteln }
with PrintDialog1 do
begin
if PrintRange = prAllPages then
begin
Start := MinPage - 1;
Stop := MaxPage - 1;
end
else if PrintRange = prSelection then
begin
Start := PageControl1.ActivePage.PageIndex;
Stop := Start;
end
else { PrintRange = prPageNums }
begin
Start := FromPage - 1;
Stop := ToPage - 1;
end;
end;
{ Jetzt die Seiten drucken }
with Printer do
begin
BeginDoc;
for I := Start to Stop do
begin
PageControl1.Pages[I].PaintTo(
Handle, 10, 10);
if I <> Stop then
NewPage;
end;
EndDoc;
end;
end;
end;
end.