[DEL] TMetafile 인쇄

procedure DrawBitmap(ATarget: TCanvas; ASource: TGraphic);
var
  mfPrint: TMetafile;
  mfCanvas: TMetafileCanvas;
begin
  mfPrint := TMetafile.Create;
  try
    mfCanvas := TMetafileCanvas.Create(mfPrint, 0);
    Try
      mfCanvas.Draw(0, 0, ASource);
    finally
      mfCanvas.Free;
    end;
    ATarget.Draw(0, 0, mfPrint);
  finally
    mfPrint.Free;
  end;
end;