DIB resizen... (von DIN A4 auf DIN A3)

[CarstenP]

Hallo!

Ich bin ein wenig ratlos, obwohl ich ein recht simples Problem habe. Ich habe ein kleines Testprogramm geschrieben, dass problemlos auf DIN A4 Seiten Testtexte ausdrucken kann.

Mein Drucker ist aber auch in der Lage auf DIN A3 zu drucken, und jedesmal wenn ich mein Testprogramm etwas drucken lasse, (und im Druckertreiber DIN A3) auswähle, wird auf dem großen DIN A3 Blatt nur der Bereich des DIN A4 Blatts bedruckt. Der Rest bleibt unbedruckt.

Ich habe schon rausgefunden, wie ich erkennen kann, ob ein User im Druckdialog DIN A3 ausgewählt hat ( über TPrinter.PageHeight und TPrinter.PageWidth ) aber jeglicher Versuch meinen schon DIB konformen Printer Canvas zu stretchen sind gescheitert. Ausprobiert habe ich bisher

Printer.Canvas.CopyRect(... // bringt keine Änderung

und

StretchDIBits(... // Was nicht sinnvoll in diesem Zusammenhang ist, weil ich ja kein Bitmap, sondern ein schon fertiges DIB habe

Übersehe ich etwas? Welche Möglichekeiten gibt es noch? Schon mal Danke im Vorraus, für jeden Tipp (ein besonderer Befehl, oder Link) wäre ich dankbar.

Als Entwicklungsumgebung benutze ich Windows XP pro, und Delphi 6.

mit freundlichen Grüßen,
Carsten

[SirThornberry]

ich hab bisher ganz einfach StretchBlt verwendet um ein Bild entsprechend der möglichen Größe zu skalieren.

[CarstenP]

Danke für die Hilfe, trotzdem beiss ich noch ein bischen auf Granit.

Liege ich vielleicht bei meinen Annahmen hier falsch?

Delphi-Quellcode:

StretchBlt(printer.canvas.Handle,0,0,printer.pagewidth,printer.pageheight,printer.canvas.Handle,0,0,6814,4760, PATCOPY);

Die 6814 * 4760 Ist die normale DIN A4 Größe die mir printer.pageheight bzw., printer.pagewidth zurückgibt, wenn ich im Druckertreiber DIN A4 ausgewählt habe.

Muss bei StretchBlt vielleicht Ziel != Quelle sein?

Danke schonmal,
Carsten