TÉMA:

Köszönöm a segítséget! Kipróbálom.

Szerkesztve:
Nehezen a következöre jutottam:

...
var tmp: TPicture;
keret: TRect;
...
tmp:= TPicture.Create();
tmp.bitmap.width:= 1000;
tmp.bitmap.height:= 500;
tmp.bitmap.canvas.brush.Color:=$FFFFFF;
tmp.bitmap.canvas.fillrect(0,0,1000,500);

tmp.bitmap.Canvas.Font.Size:=12;
tmp.bitmap.Canvas.TextOut(300,300, 'Nyomtatás próba' );

keret.Left:=0;
keret.Top:=0;
keret.Right:=500;
keret.Bottom:=500;
Printer.Canvas.StretchDraw(keret,tmp.bitmap);
tmp.free;
...

Egy dolog zavar, a tmp.bitmap háttere eredetileg fekete, így fel kell tölteni fehérrel...

Hali!

Én úgy csinálnám, hogy:

1. Létrehoznék egy saját Canvas-t
2. Ráírnám a szöveget, amit szeretnék kinyomtatni
3. A Printer.Canvas.StretchDraw függvénnyel átmásolnám a saját canvas-omról a teljes képet, így nyújthatom/zsugoríthatom tetszés szerint

Ugyan nem próbáltam ki, de szerintem működnie kell.

Sziasztok!

Ismét egy megoldhatatlan problémával küzdök.
Próbálgatom a Printer.Canvas eljárásait, sajnos egy dolgot nem tudok megoldani és nem is találok hozzá leírást. Azt szeretném megoldani, hogy egy sorban minél több karaktert lehessen kiíratni, úgy hogy az egy lapra kiírható sorok száma ne változzon meg (kb. 64 sor). Úgy mintha egy mátrixnyomtatón 12CPI-s sürített írás lenne bekapcsolva (vékony megnyújtott betük).
A Font.Size és Font.Height tulajdonságokkal már próbáltam variálni, de ezek egyszerre állítják a betük szélességét és magasságát.

A segítségeket elöre is köszönöm!...