名前 題名 ▼ Mr.XRAYさん > 折角なので，テスト結果を掲載しておきます． > 全て Windows 7 U64(SP1) + Delphi XE5(UP2) Pro VCL032 です． > 用紙サイズを A6 にして文字も少し大きくして，印刷スプールでの表示です． > まずは，AssignPrn を使用した方法です． > テストで使用した文章では 2 ページ印刷されます． > > procedure TForm1.Button2Click(Sender: TObject); > var > LPrn: TextFile; > begin > AssignPrn(LPrn); > try > Rewrite(LPrn); > try > writeln(LPrn, Memo1.Lines.Text); > finally > CloseFile(LPrn); > end; > except > on EInOutError do > MessageBox(Handle, '印刷エラー', '印刷', MB_ICONWARNING); > end; > end; > GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示). (上限122000(120k)バイト) 削除キー Link