preview.pas

为青岛一家公司做的条码打印管理

  Bmp.Canvas.LineTo(10+109+109+109+109+109,485);


end;


procedure TFrmPreview.FormShow(Sender: TObject);
var
  Bmp:TBitmap;
  HKBmp:TBitmap;
  i,x1,x2,y,Space:integer;
  TopLeft,TopRight,BottomLeft,BottomRight:TPoint;
  BarCode:string;
begin
  TopLeft.x:=10;
  TopLeft.y:=15;
  TopRight.x:=450;
  TopRight.y:=15;
  BottomLeft.x:=10;
  BottomLeft.y:=300;
  BottomRight.x:=450;
  BottomRight.y:=300;
  x1:=100;
  x2:=250;
  y:=25;
  Space:=20;

  Bmp:=TBitmap.Create;
  HKBmp:=TBitmap.Create;
  HKBmp.LoadFromFile('HuiKe.bmp');
  PrintPreview(Bmp);
  Image1.Canvas.Draw(0,0,Bmp);

  Image1.Canvas.StretchDraw(Rect(110,230,110+350,230+70),FrmTM.Bmp);//
  image1.Canvas.StretchDraw(Rect(30,230,30+70,230+70),HKBmp); //
  image1.Canvas.StretchDraw(Rect(15,350,(15+35),(350+35)),HKBmp); //
  image1.Canvas.StretchDraw(Rect(55,350,(55+130),(350+35)),FrmTM.Bmp);//

  //Image1.Canvas.pen.Color:=clwhite;   //
  //image1.Canvas.Rectangle(110,278,460,304);  //
  //Image1.Canvas.FloodFill(x);
  Image1.Canvas.Brush.Color:=clwhite;
  Image1.Canvas.Brush.Style:=bsSolid;
  Image1.Canvas.FillRect(Rect(110,278,460,304));
  //Image1.Canvas.pen.Color:=clblack; //

  Image1.Canvas.StretchDraw(Rect(14,392,114,421),FrmTm.Bmp); //
  Image1.Canvas.StretchDraw(Rect(14,427,114,456),FrmTM.Bmp); //
  Image1.Canvas.StretchDraw(Rect(123,392,223,421),FrmTm.Bmp); //
  Image1.Canvas.StretchDraw(Rect(123,427,223,456),FrmTM.Bmp); //
  Image1.Canvas.StretchDraw(Rect(232,392,332,421),FrmTm.Bmp); //
  Image1.Canvas.StretchDraw(Rect(232,427,332,456),FrmTM.Bmp); //
  Image1.Canvas.StretchDraw(Rect(341,392,441,421),FrmTm.Bmp); //
  Image1.Canvas.StretchDraw(Rect(341,427,441,456),FrmTM.Bmp); //
  Image1.Canvas.StretchDraw(Rect(450,392,550,421),FrmTM.Bmp); //
  Image1.Canvas.StretchDraw(Rect(450,427,550,456),FrmTM.Bmp); //
  Image1.Canvas.StretchDraw(Rect(559,392,659,421),FrmTM.Bmp); //
  Image1.Canvas.StretchDraw(Rect(559,427,659,456),FrmTM.Bmp); //

  Image1.Canvas.Font.Name:='黑体';
  Image1.Canvas.Font.Size:=12;
  Image1.canvas.Font.Style:=[fsBold];
  Image1.Canvas.TextOut(x1,y,'型号');
  Image1.Canvas.TextOut(x2,y,FrmTM.ComBoType.Text);
  Image1.Canvas.TextOut(x1,y+space,'生产许可证号');
  Image1.Canvas.TextOut(x2,y+space,FrmTM.EtLicenseID.Text);
  Image1.Canvas.TextOut(x1,y+2*space,'生产标准号');
  Image1.Canvas.TextOut(x2,y+2*space,FrmTM.EtCriterionID.Text);
  Image1.Canvas.TextOut(x1,y+3*space,'出厂日期');
  Image1.Canvas.TextOut(x2,y+3*space,DateToStr(FrmTM.EtLeaveFactoryDate.Date));
  Image1.Canvas.TextOut(x1,y+4*space,'重量');
  Image1.Canvas.TextOut(x2,y+4*space,FrmTM.EtWeight.Text);
  Image1.Canvas.TextOut(x1,y+5*space,'外型尺寸');
  Image1.Canvas.TextOut(x2,y+5*space,FrmTM.EtExteriorSize.Text);
  Image1.Canvas.TextOut(x1,y+6*space,'基本配置');
  Image1.Canvas.TextOut(x1,y+7*space,'CPU');
  Image1.Canvas.TextOut(x2,y+7*space,FrmTM.EtCPU.Text);
  Image1.Canvas.TextOut(x1,y+8*space,'硬盘');
  Image1.Canvas.TextOut(x2,y+8*space,FrmTM.EtHardDisk.Text);
  Image1.Canvas.TextOut(x1,y+9*space,'内存');
  Image1.Canvas.TextOut(x2,y+9*space,FrmTM.EtMemory.Text) ;

  Image1.Canvas.Font.Size:=9;    //
  Image1.canvas.Font.Style:=[];  //
  Image1.Canvas.TextOut(20,308,'出厂日期');  //
  Image1.Canvas.TextOut(70,308,DateToStr(FrmTM.EtLeaveFactoryDate.Date));  //
  Image1.Canvas.TextOut(20,321,'CPU');        //
  Image1.Canvas.TextOut(70,321,FrmTM.EtCPU.Text);   //
  Image1.Canvas.TextOut(20,334,'硬盘');          //
  Image1.Canvas.TextOut(70,334,FrmTM.EtHardDisk.Text);//
  Image1.Canvas.TextOut(130,334,'内存');      //
  Image1.Canvas.TextOut(160,334,FrmTM.EtMemory.Text); //

  Image1.Canvas.TextOut(197,309,FrmTm.ComboType.Text);       //
  Image1.Canvas.TextOut(197,322,FrmTm.MakeBarCode(FrmTM.EtProductID.Text)); //

  BarCode:=FrmTM.MakeBarCode(FrmTM.EtProductID.Text);  //
  Image1.Canvas.Font.Size:=16;      //
  Image1.Canvas.Font.Style:=[fsBold];//

  Image1.Canvas.TextOut(118,280,BarCode[1]); //
  for i:=2 to 15 do begin          //
    Image1.Canvas.TextOut(133+22*(i-2),280,BarCode[i]); //
  end;           //
  Image1.Canvas.TextOut(440,280,BarCode[16]); //

  Bmp.Free;
  HKBmp.Free;
end;

procedure TFrmPreview.BtnPrintClick(Sender: TObject);
var
  i,x1,x2,y,Space:integer;
  TopLeft,TopRight,BottomLeft,BottomRight:TPoint;
  bmp:TBitmap ;
  HKBmp:TBitmap;
  BarCode:string;
  BarCodeBmp:TBitmap;
begin
  FrmTM.BitBtn2.Enabled:=False;
  BtnPrint.Enabled:=False;
  TopLeft.x:=10*7;
  TopLeft.y:=15*7;
  TopRight.x:=450*7;
  TopRight.y:=15*7;
  BottomLeft.x:=10*7;
  BottomLeft.y:=292*7;
  BottomRight.x:=450*7;
  BottomRight.y:=292*7;
  x1:=100*7;
  x2:=250*7;
  y:=25*7;
  Space:=20*7;



  Printer.Title:='条形码打印';
  Printer.BeginDoc;  //11

//画框架
  Bmp:=TBitmap.Create;
  PrintPreview(Bmp);
  BltTBitmapAsDib(Printer.Canvas.Handle,0,0,Bmp.Width*7,Bmp.Height*7,Bmp);
  Bmp.Free;


  //写纸箱标志字
  Printer.Canvas.Font.Name:='黑体';
  Printer.Canvas.Font.Size:=16;
  Printer.canvas.Font.Style:=[fsBold];
  Printer.Canvas.TextOut(x1,y,'型号');
  Printer.Canvas.TextOut(x2,y,FrmTM.ComBoType.Text);
  Printer.Canvas.TextOut(x1,y+space,'生产许可证号');
  Printer.Canvas.TextOut(x2,y+space,FrmTM.EtLicenseID.Text);
  Printer.Canvas.TextOut(x1,y+2*space,'生产标准号');
  Printer.Canvas.TextOut(x2,y+2*space,FrmTM.EtCriterionID.Text);
  Printer.Canvas.TextOut(x1,y+3*space,'出厂日期');
  Printer.Canvas.TextOut(x2,y+3*space,DateToStr(FrmTM.EtLeaveFactoryDate.Date));
  Printer.Canvas.TextOut(x1,y+4*space,'重量');
  Printer.Canvas.TextOut(x2,y+4*space,FrmTM.EtWeight.Text);
  Printer.Canvas.TextOut(x1,y+5*space,'外型尺寸');
  Printer.Canvas.TextOut(x2,y+5*space,FrmTM.EtExteriorSize.Text);
  Printer.Canvas.TextOut(x1,y+6*space,'基本配置');
  Printer.Canvas.TextOut(x1,y+7*space,'CPU');
  Printer.Canvas.TextOut(x2,y+7*space,FrmTM.EtCPU.Text);
  Printer.Canvas.TextOut(x1,y+8*space,'硬盘');
  Printer.Canvas.TextOut(x2,y+8*space,FrmTM.EtHardDisk.Text);
  Printer.Canvas.TextOut(x1,y+9*space,'内存');
  Printer.Canvas.TextOut(x2,y+9*space,FrmTM.EtMemory.Text) ;


//画大汇科标志
  HKBmp:=TBitmap.Create;
  HKBmp.LoadFromFile('HuiKe.bmp');
  BltTBitmapAsDib(Printer.Canvas.Handle,30*7,230*7,(70)*7,(70)*7,HKBmp);
//画小汇科标志
  BltTBitmapAsDib(Printer.Canvas.Handle,15*7,350*7,(35)*7,(35)*7,HKBmp);
  HKBmp.Free;

//画大汇科条码

  BarCodeBmp:=TBitmap.Create;
  BarCodeBmp.Width:=FrmTM.Bmp.Width;
  BarCodeBmp.Height:=FrmTM.Bmp.Height;
  BarCodeBmp.Canvas.CopyRect(Rect(0,0,BarCodeBmp.Width,40),FrmTM.Bmp.Canvas,Rect(0,0,BarCodeBmp.Width,40));
  BltTBitmapAsDib(Printer.Canvas.Handle,110*7,230*7,(350)*7,(70)*7,BarCodeBmp);
  BarCodeBmp.Free;

//写大标志条码号
  BarCode:=FrmTM.MakeBarCode(FrmTM.EtProductID.Text);//
  Printer.Canvas.Font.Size:=16;    //999
  Printer.Canvas.Font.Style:=[fsBold];  //
  Printer.Canvas.TextOut(118*7,280*7,BarCode[1]); //
  for i:=2 to 15 do begin             //
    Printer.Canvas.TextOut((133+22*(i-2))*7,280*7,BarCode[i]); //
  end;                     //
  Printer.Canvas.TextOut(440*7,280*7,BarCode[16]);   //



//写中型标志字
  Printer.Canvas.Font.Size:=9;//
  Printer.canvas.Font.Style:=[];//
  Printer.Canvas.TextOut(20*7,308*7,'出厂日期'); //
  Printer.Canvas.TextOut(70*7,308*7,DateToStr(FrmTM.EtLeaveFactoryDate.Date));//
  Printer.Canvas.TextOut(20*7,321*7,'CPU');//
  Printer.Canvas.TextOut(70*7,321*7,FrmTM.EtCPU.Text); //
  Printer.Canvas.TextOut(20*7,334*7,'硬盘'); //
  Printer.Canvas.TextOut(70*7,334*7,FrmTM.EtHardDisk.Text); //
  Printer.Canvas.TextOut(130*7,334*7,'内存'); //
  Printer.Canvas.TextOut(160*7,334*7,FrmTM.EtMemory.Text); //

//写型号和条码
  Printer.Canvas.TextOut(197*7,309*7,FrmTm.ComboType.Text);  //
  Printer.Canvas.TextOut(197*7,322*7,FrmTm.MakeBarCode(FrmTM.EtProductID.Text)); //





//画中型标志条码
  BltTBitmapAsDib(Printer.Canvas.Handle,55*7,350*7,(130)*7,(35)*7,FrmTM.Bmp);

//画小条形码
  for i:=0 to 5 do begin
    BltTBitmapAsDib(Printer.Canvas.Handle,(14+i*109)*7,392*7,100*7,29*7,FrmTM.Bmp);
  end;
  for i:=0 to 5 do begin
    BltTBitmapAsDib(Printer.Canvas.Handle,(14+i*109)*7,427*7,100*7,29*7,FrmTM.Bmp);
  end;
  Printer.EndDoc;
  FrmTM.SaveData;
  BtnPrint.Enabled:=True;
  FrmTM.BitBtn2.Enabled:=True;
end;

procedure TFrmPreview.BitBtn2Click(Sender: TObject);
begin
  Close;
end;

end.