?? 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.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -