直接使用 TPrinter 畫布逐行輸出文字,自動計算行高換行。
TPrinter *pPrinter = Printer();
pPrinter->Title = "列印 Memo1 中的資料";
pPrinter->BeginDoc();
int y = 10;
for (int i = 0; i < Memo1->Lines->Count; i++) {
pPrinter->Canvas->TextOut(10, y, Memo1->Lines->Strings[i]);
y += pPrinter->Canvas->TextHeight("A"); // 取得單行高度
}
pPrinter->EndDoc();
TextHeight("A") 取得目前字型單行高度作為行距。y > pPrinter->PageHeight 呼叫 NewPage())。