delphi7 打印问题
在拍奖结束后 加打印 怎么加呢
procedure TFmMain.bitstartClick(Sender: TObject);
begin

i:=0;

if lbviews.Caption<>'0' then
begin

Timer1.Enabled:=true;
//bitstart.SetFocus;
bitstart.Visible:=false;
//bitstart.SetFocus;
bitstop.Visible:=true;

MediaPlayer2.Stop;
MediaPlayer3.Stop;
MediaPlayer1.Open;
MediaPlayer1.Play;
//Image1.Picture:=nil;
//Image1.Picture.LoadFromFile('C:\3é?±\FilmAwards\Photo\???±.gif');

//lbviews.Caption;


ernietimes.caption:='?ú?1óD'+lbviews.Caption+'′????±?ú?á';
end
else
begin
MediaPlayer2.Stop;
MediaPlayer3.Stop;
MediaPlayer1.Stop;
end;
if lbviews.Caption='0' then
begin
Application.MessageBox('拍奖结束','提示信息',mb_OK);

WindowState:=wsNormal;
Panel1.Visible:=true;
bitclear.Click;
//Image1.Picture.LoadFromFile('Photo\D?D??ú.gif');
edsalesamount.SetFocus;
end;

end;
[解决办法]
你要打印什么？图片还是数据？
[解决办法]
打印数据