Přidat otázku mezi oblíbenéZasílat nové odpovědi e-mailem Delphi 7 - Tlač celého formulára

IMHO tato metoda je taková nouzovka ze zoufalství. Párkrát jsem to použil, ale výsledek je přežalostný. Používá to funkci TForm.GetFormImage, která vrací xicht formu jako bitmapu. To by ještě tak strašné nebylo. Leč pokračuje to přepočítáním velikosti podle obrovské spousty nastavení tiskárny. Záleží na velikosti papíru, okrajů, počtu logických pixelů atd atd. Tím už ve většině případů vypukne už tak velká deformace, že texty se ztrácejí v rozsypaném čaji či mlze. Korunu tomu dá API funkce StretchDIBits, kterou se to přes Windouzy tiskne. Zkus použít TForm.GetFormImage a bitmapu vytisknout na svoje triko, uvidíš nejlépe, při jaké změně měřítka to bude k ničemu (pro tisk použij TCanvas.StretchDraw). Lépe je však vyrobit plnohodnotný report :-p:-).

Reakce na odpověď

1 Zadajte svou přezdívku:
2 Napište svou odpověď:
3 Pokud chcete dostat ban, zadejte libovolný text:

Zpět do poradny