大量の画像の印刷について (ID:46920)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

以下のように画像を印刷するプログラムを作成したのですが、

EOutOfResources （メッセージ 'このコマンドを実行するのに十分な記憶域がありません。
'）を送出しました。

というメッセージが表示され印刷できません。

また枚数が少ない場合でも、ところどころ白紙で印刷されます。

どのように作成したら上手く印刷されるか
ご教示宜しくお願い致します。

procedure TFMain.Button1Click(Sender: TObject);
var
  i:integer;
  pRect:TRect;
  Bmp:TBitmap;
begin
  pRect :=Bounds(GetDeviceCaps(Printer.Handle, PHYSICALOFFSETX-100),
                 GetDeviceCaps(Printer.Handle, PHYSICALOFFSETY-100),
                 GetDeviceCaps(Printer.Handle, HORZRES),
                 GetDeviceCaps(Printer.Handle, VERTRES));
  Printer.BeginDoc;

try
    try
      for i:=1 to 99 do begin
        try
          Bmp:='C:\'+inttostr(i)+'.bmp'
          Image1.Picture.Assign(Bmp);
        finally
          Bmp.Free;
        end;
        if i > 0 then begin
          Printer.NewPage;
          Printer.Canvas.CopyMode:= cmWhiteness;
        end;

Printer.Canvas.CopyMode:=cmSrcAnd;
        Printer.Canvas.StretchDraw(pRect,Image2.Picture.Graphic);

Image1.Picture.Assign(nil);
      end;
    except
      Printer.Abort;
    end;
  finally
    Printer.EndDoc;
  end;
end;

←解決時は質問者本人がここをチェックしてください。

戻る