喫茶XRAYトップページ

[スレッド全体
]

[651] 印刷プレビュー制御コンポーネントの改ページについて返信 削除
2006/1/23 (月) 00:20:42 あぼみ
初めまして、あぼみと申します。
印刷プレビュー制御コンポーネント、プリンタ設定コンポーネントを多用させていただいております。
サンプルプログラム集も色々な場面で参考にさせていただいてます。

印刷プレビュー制御コンポーネントについて、プリンタ出力時に改ページ出来ない時があります。
使用環境は以下の通りです。
-----------------------------------------------
WindowsXP Pro(SP2) + Delphi6 PRO UpdatePack 2
「plPrev Ver 4.56」 「TplSetPrinter  Ver 6.06」
LPT1:に接続したPM-770C
-----------------------------------------------

フォーム上に印刷プレビュー制御とプリンタ設定コンポーネントとボタンを一つずつ配置してあります。
メインの処理は、簡単に書くと以下の通りです。
-----------------------------------------------
procedure TForm1.Button1Click(Sender: TObject);
begin
// 帳票No.1を作成
    plPrev1.BeginDoc;
    plPrev1.FontName('MS ゴシック');
    plPrev1.FontSize(50);

    plPrev1.TextOutLC(150,100,'帳票No.1の1頁');
    plPrev1.EndDoc;
    plPrev1.Print;  //プリンタ出力

// 帳票No.2を作成
    plPrev1.BeginDoc;
//1ページ
    plPrev1.TextOutLC(150,100,'帳票No.2の1頁');
    plPrev1.NewPage;   //*** 改ページ ***
//2ページ
    plPrev1.TextOutLC(150,100,'帳票No.2の2頁');
    plPrev1.EndDoc;
    plPrev1.Print   //プリンタ出力
end;
-----------------------------------------------
No.2の2ページ目が印刷されません。
OnBeforeViewイベントを使いPageとPageCountを描画してみたところPageCountは2ページになっているようです。
plPrev1.PrintをplPrev1.ShowModalにしてプレビューさせると正常です。

一度に大量に印刷するときは帳票が出来上がった段階で出力したほうが気分的に早いような気がするのでこのようなプログラミングになりました。
「BeginDoc〜EndDoc,Print」を一つにしたプログラムにすれば良いのかとは思いますが・・・
ちょっと気になったので、とりあえずご報告します。

[652] Re:印刷プレビュー制御コンポーネントの改ページについて返信 削除
2006/1/23 (月) 00:27:59 Mr.XRAY
▼ あぼみさん

こんにちは,はじめまして.拙作コンポ類のご利用ありがとうございます.
また,報告感謝します.後で動作を確認したいと思います.


[653] Re2:印刷プレビュー制御コンポーネントの改ページについて返信 削除
2006/1/23 (月) 20:23:25 Mr.XRAY
▼ あぼみさん
 
> また,報告感謝します.後で動作を確認したいと思います.
動作確認しました.Printメソッドのバグですね.
これにこりず,これからも宜しくお願いします.

他の問題も含めて,次回バージョンアップということでご了解下さい.
なるべく早くしたいと思います.

[654] Re3:印刷プレビュー制御コンポーネントの改ページについて返信 削除
2006/1/23 (月) 23:55:12 あぼみ
▼ Mr.XRAYさん
 
> 動作確認しました.Printメソッドのバグですね.
お忙しい中、申し訳ありません。
実際のプログラムは、ADOConnectionを使ってAccessデータベースから
データを抽出し集計処理をして印刷させています。

> これにこりず,これからも宜しくお願いします.
こちらこそ、有用なコンポーネントを提供いただき感謝しております。
次のバージョンアップを期待してます。

[▼次のスレッド]
INCM/CMT
Cyclamen v3.82