喫茶XRAYトップページ

[スレッド全体]
[748] 印刷プレビュー制御コンポーネントに関して2つほど返信　削除
2006/4/24 (月) 14:26:16 cham
Mr.XRAYさん、こんにちは。

いつもコンポーネントを便利に活用させていただいております。

2つほど質問です。

1．複数ページある場合、後ろの数ページが印字されないことがあります。
　 プレビューしてからの印刷では問題ありません。

2．罫線で点線を印字するとプレビューでは点線になっていますが、実際の
　 印刷時に実線になっている。

1．は具体的には下記のように処理しています。

procedure HeadPrint;
begin

end;
[754] Re:印刷プレビュー制御コンポーネントに関して2つほど返信　削除
2006/4/24 (月) 23:37:32 Mr.XRAY
▼ chamさん、こんにちは。

それと、Syakeさん、レス、すみません。

1. これはバグのようです。
前にも、この掲示板かメールで問合わせがありました。
なんで、こんなことになっているのか...
もう、しばらくお待ちください。

2. これは、TplPrevの内部処理から起こる現象です。
TplPrevでは、プリンタの解像度と無関係に、解像度が0.1mmのメタファイル
を作成し、それを印刷プレビューと印刷に使用しています。この内部処理が
原因のようです。

したがって、プリンタの解像度を低くすれば発生しないようです。
やっぱり見直さないといけないかな。

[756] Re2:印刷プレビュー制御コンポーネントに関して2つほど返信　削除
2006/4/25 (火) 10:34:46 あぼみ
▼ Mr.XRAYさん

「1.」に関して今年1月に同様の質問をした者です。
今のところ以下のようにして回避しています。

先読み方式ではPageCountプロパティでページ数が分かっていますから、
　PrintFromPage:=1;
　PrintToPage:=PageCount;
　Print;

今までの経験から、最初に BeginDoc; 〜 EndDoc; Print; で出力された
ページ数が以後の最大印刷可能ページ数になってるような気がします。

[766] Re3:印刷プレビュー制御コンポーネントに関して2つほど返信　削除
2006/4/25 (火) 22:37:32 Mr.XRAY
▼ あぼみさん、こんにちは。

> 「1.」に関して今年1月に同様の質問をした者です。
> 今のところ以下のようにして回避しています。

どうもレス、ありがとうございます。
このように、ご自分で対応して頂くと助かります。
今後共、よろしく。何とか、修正を早くしたいと思っています。
[772] Re4:印刷プレビュー制御コンポーネントに関して2つほど返信　削除
2006/4/26 (水) 09:33:47 cham
▼ Mr.XRAYさん

こんにちは。

> 今後共、よろしく。何とか、修正を早くしたいと思っています。

とりあえずの解決策を教えていただきましたので、お時間のある時に
お願いいたします。m(__)m

ちなみに点線の方は

//横線のみ
procedure TfmMain.TensenPrint( x1,x2,y1,y2 : integer );
var
  c : integer;
begin
  c := x1;
  while (c <= x2) do
  begin
    plPrev1.Line( c, c+3, y1, y2 );
    Inc( c, 6 );
  end;
end;

という強引な方法でとりあえず回避しました。
ページ数が少ないリストなのでこれでもスピード的に問題ないのと
他にやり方が思いつかなかったので・・・（汗
[▼次のスレッド]
INCM/CMT
Cyclamen v3.82