BeginDocでEAccesViolation？

解決

Satoh 2012-01-08 11:48:17 No: 41429 IP: 192.*.*.*

プリンタについて質問させていただきます。

環境は    Xp-Pro SP3,  Delphi 2009 Update3 です

HelpにあるPrinter関数のコード例の下記の「BeginDoc」文でEAccessViolationが発生します。
    { now, print the pages }
    with Printer do
    begin
      BeginDoc;
      for I := Start to Stop do
      begin
        PageControl1.Pages[I].PaintTo(Handle, 10, 10);
        if I <> Stop then
          NewPage;
      end;
      EndDoc;
    end;

Printerは、Canon IP-4200で通常使うプリンターになっています。
他のプログラムでは正常に印刷可能です。

いろいろ調べてみたのですが、原因不明です。
どのような対処を行えば解決できるか教えていただければ幸いです。

編集削除

Satoh 2012-01-08 21:32:37 No: 41430 IP: 192.*.*.*

なんとなく解決してしまいました。

印刷をMainフォームと別なフォームで行おうとしていましたが、
Mainフォームに移したら、印刷できるようになりました。

原因は不明ですが、とりあえず対処できそうです。

お騒がせいたしました。

編集削除

Satoh 2012-03-20 11:36:07 No: 41431 IP: 192.*.*.*

解決サインを設定してませんでした。

編集削除