delphi7 打印有关问题

2012-12-16

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

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;
[解决办法]
你要打印什么？图片还是数据？
[解决办法]
打印数据

热点排行

.NET

delphi7 打印有关问题