BeginDocでEAccesViolation？

解決

Satoh 2012-01-08 20:48:17 No: 41429

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

環境は 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-09 06:32:37 No: 41430

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

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

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

お騒がせいたしました。

Satoh 2012-03-20 20:36:07 No: 41431

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