关于小票打印

Question

我没有做过小票打印。请问我用的是山崎220小票打印。我找了很久没有开发包。
用这个打印是不是和普通打印机一样用DELPHI自带的报表功能就可以打印了？
如果各位有代码最好能发出来让我学习一下谢谢 。。还有就是他的宽度这长度这些怎么样个控制方法？以前没有做过小票打印。各位谢谢了。

Answer 1

var
  ys1,ys2,ys3:string;
  lMaterialCode, rMaterialCode:string;
begin  .......  yanse := trim(cbYanSe1.Text)+trim(cbYanSe2.Text)+trim(cbYanse3.Text);
  ys1 := trim(cbYanSe1.Text);
  ys2 := trim(cbYanSe2.Text);
  ys3 := trim(cbYanSe3.Text);  //保存颜色
  if yanse <> '' then
    IFile.WriteString('huawense',trim(cbLSpec.Text)+trim(cbLTexture.Text),yanse);  //保存左模具号
  if LListModule.IndexOf(trim(cbZmh.Text)) = -1 then
  begin
    IFile.WriteString(trim(cbLSpec.Text),inttostr(LListModule.Count + 1),trim(cbZmh.Text));
    LListModule.Add(trim(cbZmh.Text));
    cbZmh.Items.Add(trim(cbZmh.Text));
    if(cbLSpec.Text = cbRSpec.Text) then
    begin
      cbYmh.Items.Add(trim(cbZmh.Text));
      RListModule.Add(trim(cbZmh.Text));
    end;
  end;  //保存右模具号
  if RListModule.IndexOf(trim(cbYmh.Text)) = -1 then
  begin
    IFile.WriteString(trim(cbRSpec.Text),inttostr(RListModule.Count + 1),trim(cbYmh.Text));
    cbYmh.Items.Add(trim(cbYmh.Text));
    RListModule.Add(trim(cbYmh.Text));
    if(cbLSpec.Text = cbRSpec.Text) then
    begin
      cbZmh.Items.Add(trim(cbYmh.Text));
      LListModule.Add(trim(cbYmh.Text));
    end;
  end;  frReport1.FindObject('YanSe1').Memo.Text := ys1;
  if yanse='' then
    frReport1.FindObject('YanSe2').Memo.Text := '无'//copy(yanse,1,2);
  else
    frReport1.FindObject('YanSe2').Memo.Text := ys2;//copy(yanse,3,2);
    frReport1.FindObject('YanSe3').Memo.Text := ys3;//copy(yanse,5,2);
    frReport1.FindObject('PicOne').FillColor :=PicColor(ys1{copy(yanse,1,2)}) ;
    frReport1.FindObject('PicTwo').FillColor :=PicColor(ys2{copy(yanse,3,2)}) ;
    frReport1.FindObject('PicThree').FillColor :=PicColor(ys3{copy(yanse,5,2)}) ;
    frReport1.FindObject('ZuoMoJu').Memo.Text :=cbZmh.Text ;
    frReport1.FindObject('YouMoJu').Memo.Text :=cbYmh.Text ;
    frReport1.FindObject('GangYin').Memo.Text :=Trim(EdtGangyin.Text);
    frReport1.FindObject('LTiaoMa').Memo.Text := '00'+LMaterialCode ;
    frReport1.FindObject('RTiaoMa').Memo.Text := '00'+RMaterialCode ;
    frReport1.FindObject('LGuiGe').Memo.Text := cbLSpec.Text+'('+cbLLayer.Text+')'+cbLTexture.Text+cbLBrand.Text ;
    frReport1.FindObject('RGuiGe').Memo.Text := cbRSpec.Text+'('+cbRLayer.Text+')'+cbRTexture.Text+cbRBrand.Text ;
//    frReport1.FindObject('HuaWen').Memo.Text := ComboBox3.Text+'-'+ComboBox4.Text ;
    frReport1.PrepareReport;
    frReport1.ShowReport;