epson lq300k如何实现打印小发票(200分)

  • 主题发起人 主题发起人 killerbug
  • 开始时间 开始时间
K

killerbug

Unregistered / Unconfirmed
GUEST, unregistred user!
我用ESPON LQ300K做医院门诊收费发票的打印，发票的大小为95*120mm 格式固定的
三层拷贝连续纸，
但是自定义纸张大小最小为127*127mm，如何才能实现打印位置的准确及走纸正确，
小弟处学delphi，请各位大虾多多指教。
 
killerbug老兄：
打印机自定义纸张大小最小是127*127，但是单位是0.1MM。
 
打印机设置：选自定义zhi张便可.
给你源程序
unit dy_cf;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, quickrpt, Qrctrls;

type
TPrintCF = class(TForm)
QuickRep1: TQuickRep;
QRBand1: TQRBand;
QRDBText2: TQRlabel;
QRLabel15: TQRLabel;
QRLabel16: TQRLabel;
QRLabel17: TQRLabel;
QRLabel18: TQRLabel;
QRDBText5: TQRLabel;
QRDBText6: TQRLabel;
QRBand2: TQRBand;
QRDBText20: TQRLabel;
QRLabel22: TQRLabel;
QRDBText21: TQRLabel;
QRLabel23: TQRLabel;
QRD_ts1: TQRLabel;
QRL_ts1: TQRLabel;
QRD_bzje1: TQRlabel;
QRl_bzje1: TQRLabel;
QRShape_2: TQRShape;
QRBand3: TQRBand;
QRLabel26: TQRLabel;
QRLabel27: TQRLabel;
QRLabel28: TQRLabel;
QRLabel29: TQRLabel;
QRBand4: TQRBand;
QRDBText25: TQRDBText;
QRDBText26: TQRDBText;
QRDBText27: TQRDBText;
QRDBText28: TQRDBText;
QRShape2: TQRShape;
QRLabel21: TQRLabel;
QRDBText19: TQRlabel;
QRLabel24: TQRLabel;
QRLabel25: TQRLabel;
QRDBTextzz4: TQRDBText;
QRLabel33: TQRLabel;
QRDBText4: TQRlabel;
QRLabel34: TQRLabel;
QRDBText24: TQRLabel;
QRLabel35: TQRLabel;
QRDBText29: TQRLabel;
QRL_zje1: TQRLabel;
QRD_zje1: TQRLabel;
QRLabel37: TQRLabel;
procedure QRDBText26Print(sender: TObject;
var Value: String);
private
{ Private declarations }
public
{ Public declarations }
end;


var
PrintCF: TPrintCF;

implementation

uses DataModule;

{$R *.DFM}



procedure TPrintCF.QRDBText26Print(sender: TObject;
var Value: String);
begin

Value:=Value+DM1.Query1.FieldByName('单位').AsString;
end;


end.


////////////////////////////////////////////////////

object PrintCF: TPrintCF
Left = 0
Top = 79
Width = 777
Height = 474
BorderIcons = []
Caption = '打印处方'
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = '宋体'
Font.Style = []
OldCreateOrder = True
Scaled = False
PixelsPerInch = 96
TextHeight = 15
object QuickRep1: TQuickRep
Tag = 1
Left = 4
Top = 14
Width = 911
Height = 372
Frame.Color = clTeal
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
DataSet = DM1.Query1
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = '宋体'
Font.Style = []
Functions.Strings = (
'PAGENUMBER'
'COLUMNNUMBER'
'REPORTTITLE')
Functions.DATA = (
'0'
'0'
#39#39)
Options = [FirstPageHeader, LastPageFooter]
Page.Columns = 1
Page.Orientation = poPortrait
Page.PaperSize = Custom
Page.Values = (
0
984.25
0
2410.35416666667
20
50
0)
PrinterSettings.Copies = 1
PrinterSettings.Duplex = False
PrinterSettings.FirstPage = 0
PrinterSettings.LastPage = 0
PrinterSettings.OutputBin = First
PrintIfEmpty = False
ShowProgress = False
SnapToGrid = True
Units = MM
Zoom = 100
object QRBand1: TQRBand
Left = 8
Top = 0
Width = 885
Height = 41
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = True
Frame.DrawLeft = False
Frame.DrawRight = False
Frame.Style = psClear
AlignToBottom = False
Color = clWhite
ForceNewColumn = False
ForceNewPage = False
Size.Values = (
108.479166666667
2341.5625)
BandType = rbTitle
object QRDBText2: TQRLabel
Left = 342
Top = 22
Width = 73
Height = 16
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
42.3333333333333
904.875
58.2083333333333
193.145833333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = 'QRDBText2'
Color = clWhite
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = '宋体'
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 11
end
object QRLabel15: TQRLabel
Left = 304
Top = 4
Width = 121
Height = 19
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
50.2708333333333
804.333333333333
10.5833333333333
320.145833333333)
Alignment = taCenter
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = 'xxxxxxxxxxxxxxx'
Color = clWhite
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = '宋体'
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 12
end
object QRLabel16: TQRLabel
Left = 2
Top = 22
Width = 54
Height = 16
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
42.3333333333333
5.29166666666667
58.2083333333333
142.875)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = '处方号:'
Color = clWhite
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = '宋体'
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 11
end
object QRLabel17: TQRLabel
Left = 303
Top = 22
Width = 39
Height = 16
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
42.3333333333333
801.6875
58.2083333333333
103.1875)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = '姓名:'
Color = clWhite
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = '宋体'
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 11
end
object QRLabel18: TQRLabel
Left = 3
Top = 3
Width = 39
Height = 16
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
42.3333333333333
7.9375
7.9375
103.1875)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = '卡号:'
Color = clWhite
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = '宋体'
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 11
end
object QRDBText5: TQRLabel
Left = 42
Top = 3
Width = 73
Height = 16
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
42.3333333333333
111.125
7.9375
193.145833333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = 'QRDBText5'
Color = clWhite
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = '宋体'
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 11
end
object QRDBText6: TQRLabel
Left = 58
Top = 22
Width = 73
Height = 16
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
42.3333333333333
153.458333333333
58.2083333333333
193.145833333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = 'QRDBText6'
Color = clWhite
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = '宋体'
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 11
end
object QRShape2: TQRShape
Left = 0
Top = 39
Width = 1021
Height = 1
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
2.64583333333333
0
103.1875
2701.39583333333)
Shape = qrsHorLine
end
object QRLabel21: TQRLabel
Left = 148
Top = 22
Width = 39
Height = 16
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
42.3333333333333
391.583333333333
58.2083333333333
103.1875)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = '科室:'
Color = clWhite
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = '宋体'
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 11
end
object QRDBText19: TQRLabel
Left = 186
Top = 22
Width = 81
Height = 16
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
42.3333333333333
492.125
58.2083333333333
214.3125)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = 'QRDBText19'
Color = clWhite
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = '宋体'
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 11
end
object QRLabel33: TQRLabel
Left = 400
Top = 22
Width = 39
Height = 16
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
42.3333333333333
1058.33333333333
58.2083333333333
103.1875)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = '性别:'
Color = clWhite
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = '宋体'
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 11
end
object QRDBText4: TQRLabel
Left = 438
Top = 22
Width = 73
Height = 16
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
42.3333333333333
1158.875
58.2083333333333
193.145833333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = 'QRDBText4'
Color = clWhite
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = '宋体'
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 11
end
object QRLabel34: TQRLabel
Left = 475
Top = 22
Width = 39
Height = 16
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
42.3333333333333
1256.77083333333
58.2083333333333
103.1875)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = '年龄:'
Color = clWhite
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = '宋体'
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 11
end
object QRDBText24: TQRLabel
Left = 514
Top = 22
Width = 81
Height = 16
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
42.3333333333333
1359.95833333333
58.2083333333333
214.3125)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = 'QRDBText24'
Color = clWhite
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = '宋体'
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 11
end
object QRLabel35: TQRLabel
Left = 539
Top = 22
Width = 39
Height = 16
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
42.3333333333333
1426.10416666667
58.2083333333333
103.1875)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = '地址:'
Color = clWhite
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = '宋体'
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 11
end
object QRDBText29: TQRLabel
Left = 578
Top = 22
Width = 81
Height = 16
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
42.3333333333333
1529.29166666667
58.2083333333333
214.3125)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = 'QRDBText29'
Color = clWhite
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = '宋体'
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 11
end
end
object QRBand2: TQRBand
Left = 8
Top = 75
Width = 885
Height = 78
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Frame.Style = psClear
AlignToBottom = False
Color = clWhite
ForceNewColumn = False
ForceNewPage = False
Size.Values = (
206.375
2341.5625)
BandType = rbPageFooter
object QRDBText20: TQRLabel
Left = 443
Top = 18
Width = 81
Height = 16
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
42.3333333333333
1172.10416666667
47.625
214.3125)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = 'QRDBText20'
Color = clWhite
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = '宋体'
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 11
end
object QRLabel22: TQRLabel
Left = 404
Top = 18
Width = 39
Height = 16
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
42.3333333333333
1068.91666666667
47.625
103.1875)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = '医生:'
Color = clWhite
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = '宋体'
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 11
end
object QRDBText21: TQRLabel
Left = 273
Top = 18
Width = 105
Height = 15
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
40.2166666666667
721.783333333333
46.5666666666667
277.283333333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = False
AutoStretch = False
Caption = 'QRDBText21'
Color = clWhite
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = '宋体'
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 10
end
object QRLabel23: TQRLabel
Left = 0
Top = 18
Width = 268
Height = 15
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
40.2166666666667
0
46.5666666666667
709.083333333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = False
AutoStretch = False
Caption = '请妥善保管,报销时作核对凭证(非打印无效)'
Color = clWhite
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = '宋体'
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 10
end
object QRD_ts1: TQRLabel
Left = 153
Top = 1
Width = 57
Height = 16
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
42.3333333333333
404.8125
2.64583333333333
150.8125)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = 'QRD_ts1'
Color = clWhite
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = '宋体'
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 11
end
object QRL_ts1: TQRLabel
Left = 114
Top = 1
Width = 39
Height = 16
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
42.3333333333333
301.625
2.64583333333333
103.1875)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = '帖数:'
Color = clWhite
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = '宋体'
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 11
end
object QRD_bzje1: TQRLabel
Left = 74
Top = 1
Width = 37
Height = 16
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
42.3333333333333
195.791666666667
2.64583333333333
97.8958333333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = False
AutoStretch = False
Caption = '0.00'
Color = clWhite
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = '宋体'
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 11
end
object QRl_bzje1: TQRLabel
Left = 4
Top = 1
Width = 69
Height = 16
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
42.3333333333333
10.5833333333333
2.64583333333333
182.5625)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = '包装金额:'
Color = clWhite
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = '宋体'
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 11
end
object QRShape_2: TQRShape
Left = 0
Top = 17
Width = 1021
Height = 1
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
2.11666666666667
0
44.45
2700.86666666667)
Shape = qrsHorLine
end
object QRLabel24: TQRLabel
Left = 549
Top = 18
Width = 39
Height = 16
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
42.3333333333333
1452.5625
47.625
103.1875)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = '备药:'
Color = clWhite
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = '宋体'
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 11
end
object QRLabel25: TQRLabel
Left = 664
Top = 18
Width = 39
Height = 16
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
42.3333333333333
1756.83333333333
47.625
103.1875)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = '复核:'
Color = clWhite
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = '宋体'
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 11
end
object QRDBTextzz4: TQRDBText
Left = 465
Top = 1
Width = 57
Height = 16
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
42.3333333333333
1230.3125
2.64583333333333
150.8125)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataField = 'cl_flag'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = '宋体'
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 11
end
object QRL_zje1: TQRLabel
Left = 202
Top = 1
Width = 54
Height = 16
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
42.3333333333333
534.458333333333
2.64583333333333
142.875)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = '药品费:'
Color = clWhite
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = '宋体'
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 11
end
object QRD_zje1: TQRLabel
Left = 255
Top = 1
Width = 65
Height = 16
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
42.3333333333333
674.6875
2.64583333333333
171.979166666667)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = 'QRD_zje1'
Color = clWhite
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = '宋体'
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 11
end
object QRLabel37: TQRLabel
Left = 590
Top = 19
Width = 49
Height = 16
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
42.3333333333333
1561.04166666667
50.2708333333333
129.645833333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = '123123'
Color = clWhite
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = '宋体'
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 11
end
end
object QRBand3: TQRBand
Left = 8
Top = 41
Width = 885
Height = 16
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
AlignToBottom = False
Color = clWhite
ForceNewColumn = False
ForceNewPage = False
Size.Values = (
42.3333333333333
2341.5625)
BandType = rbColumnHeader
object QRLabel26: TQRLabel
Left = 74
Top = 2
Width = 106
Height = 16
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
42.3333333333333
195.791666666667
5.29166666666667
280.458333333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = '药品名称和规格'
Color = clWhite
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = '宋体'
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 11
end
object QRLabel27: TQRLabel
Left = 346
Top = 2
Width = 47
Height = 16
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
42.3333333333333
915.458333333333
5.29166666666667
124.354166666667)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = '数 量'
Color = clWhite
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = '宋体'
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 11
end
object QRLabel28: TQRLabel
Left = 442
Top = 2
Width = 47
Height = 16
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
42.3333333333333
1169.45833333333
5.29166666666667
124.354166666667)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = '单 价'
Color = clWhite
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = '宋体'
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 11
end
object QRLabel29: TQRLabel
Left = 542
Top = 2
Width = 63
Height = 16
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
42.3333333333333
1434.04166666667
5.29166666666667
166.6875)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = '用 法'
Color = clWhite
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = '宋体'
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 11
end
end
object QRBand4: TQRBand
Left = 8
Top = 57
Width = 885
Height = 18
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
AlignToBottom = False
Color = clWhite
ForceNewColumn = False
ForceNewPage = False
Size.Values = (
47.625
2341.5625)
BandType = rbDetail
object QRDBText26: TQRDBText
Left = 337
Top = 0
Width = 31
Height = 16
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
42.3333333333333
891.645833333333
0
82.0208333333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = DM1.Query1
DataField = '数量'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = '宋体'
Font.Style = []
Mask = '############0.##'
OnPrint = QRDBText26Print
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 11
end
object QRDBText25: TQRDBText
Left = 16
Top = 0
Width = 61
Height = 16
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
42.3333333333333
42.3333333333333
0
161.395833333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = DM1.Query1
DataField = '药品名称'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = '宋体'
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 11
end
object QRDBText27: TQRDBText
Left = 434
Top = 0
Width = 31
Height = 16
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
42.3333333333333
1148.29166666667
0
82.0208333333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = True
Color = clWhite
DataSet = DM1.Query1
DataField = '单价'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = '宋体'
Font.Style = []
Mask = '##########0.####'
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 11
end
object QRDBText28: TQRDBText
Left = 537
Top = 0
Width = 31
Height = 16
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
42.3333333333333
1420.8125
0
82.0208333333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = DM1.Query1
DataField = '用法'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = '宋体'
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 11
end
end
end
end

 
关键是走纸问题，纸张大小我已在qrp中自定义为我的票据的大小，但是打印时只有第一
页位置正确，然后每打一页，数据位置就比上一页提高一行，我的打印机设置为：
自动换行=false；切纸=true；还望救人救到底，帮帮小弟
另：hwk2000说的对，我犯了一个低级错误
 
附加功能 将问题提前
 
killerbug:如果还想接着讨论请定期提前自己的帖子，如果不想继续讨论请结束帖子。
 
多人接受答案了。
 
您必须登录或注册才可回复。

Similar threads

Ray
[转]终于可以发布Delphi下收点OSGI精髓皮毛而设计的插件框架WisdomPluginFramework
回复
4
查看
4K
chlkuei
C
P
发票打印问题，各位给点儿建议。(100分)
回复
3
查看
223
paulannar
P
1
怎么控制epson-lq300k的自动走纸问题(200分)
回复
2
查看
166
itren
I
H
NTWORKSTATION中的打印纸大小的设置(50分)
回复
5
查看
268
飞来石
飞
飘
哪位高手能给我提供一个打印连续纸票据的例子？(100分)
回复
9
查看
255
飘叶
飘
后退
顶部