📄 printinvoice1.frm
字号:
Width = 735
End
Begin VB.Label Label18
BackStyle = 0 'Transparent
Caption = "度 数"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 270
Left = 4080
TabIndex = 13
Top = 1725
Width = 735
End
Begin VB.Label Label16
BackStyle = 0 'Transparent
Caption = "上 月 底 数"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 420
Left = 1710
TabIndex = 12
Top = 1440
Width = 795
End
Begin VB.Label Label15
BackStyle = 0 'Transparent
Caption = "本 月 抄 数"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
Left = 2790
TabIndex = 11
Top = 1470
Width = 750
End
Begin VB.Label Label14
BackStyle = 0 'Transparent
Caption = "第 一 联 存 根"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 2295
Left = 8760
TabIndex = 10
Top = 1680
Width = 375
End
Begin VB.Line Line11
X1 = 8640
X2 = 8640
Y1 = 1320
Y2 = 3960
End
Begin VB.Line Line10
X1 = 6240
X2 = 6240
Y1 = 1335
Y2 = 1815
End
Begin VB.Line Line8
X1 = 360
X2 = 8640
Y1 = 3945
Y2 = 3945
End
Begin VB.Line Line7
X1 = 360
X2 = 360
Y1 = 1320
Y2 = 3960
End
Begin VB.Line Line6
X1 = 360
X2 = 8640
Y1 = 1320
Y2 = 1320
End
Begin VB.Label Label11
BackStyle = 0 'Transparent
Caption = "00406999"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 255
Left = 7410
TabIndex = 9
Top = 600
Width = 1320
End
Begin VB.Label Label10
BackStyle = 0 'Transparent
Caption = "№"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 6915
TabIndex = 8
Top = 615
Width = 375
End
Begin VB.Label Label9
BackStyle = 0 'Transparent
Caption = "(32)"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 6090
TabIndex = 7
Top = 780
Width = 510
End
Begin VB.Label Label6
BackStyle = 0 'Transparent
Caption = "客户:"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Left = 480
TabIndex = 6
Top = 960
Width = 735
End
Begin VB.Label Label5
BackStyle = 0 'Transparent
Caption = "存 根 联"
BeginProperty Font
Name = "黑体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 3540
TabIndex = 5
Top = 435
Width = 2295
End
Begin VB.Line Line5
X1 = 1680
X2 = 7425
Y1 = 360
Y2 = 360
End
Begin VB.Label Label4
BackStyle = 0 'Transparent
Caption = "福建省永安市电力公司电费普通发票"
BeginProperty Font
Name = "幼圆"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 2160
TabIndex = 4
Top = 15
Width = 5775
End
Begin VB.Label Label3
BackStyle = 0 'Transparent
Caption = "国税"
BeginProperty Font
Name = "黑体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 6105
TabIndex = 3
Top = 480
Width = 525
End
End
End
Attribute VB_Name = "PrintInvoice1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim je
Private Sub Check1_Click()
If Check1.Value = 1 Then
Label4 = "福建省永安市电力公司电费收据"
Label3.Visible = False
Label9.Visible = False
Else
Label4 = "福建省永安市电力公司电费普通发票"
Label3.Visible = True
Label9.Visible = True
End If
End Sub
Private Sub Command1_Click()
On Error Resume Next
Dim i As Integer
If Option1 Then
If MdbR.Fields!发票打印 = True Then
MsgBox Text3 & MdbR.Fields!用户名称 & "发票刚才已打印，如要重新打印请先恢复此用户！", vbCritical
Text3.SelStart = 0
Text3.SelLength = Len(Text3)
Text3.SetFocus
Exit Sub
End If
Call SetPrinterPar
Call PrinterInit
Printer.CurrentX = 0
Printer.CurrentY = 0
' Printer.CurrentX = gCol1 '纵 10
' Printer.CurrentY = gRow1 '横 0
' Printer.Print "" '月份
Printer.CurrentX = gCol2 + 4 '16 --->右移
Printer.CurrentY = gRow2 - 5 '18 --->上移
Printer.Print Label59 & " " & Label50 & " " & Label51 & " " & Label52; '代码 户名
'Printer.CurrentX = gCol2 + 23
'Printer.CurrentY = gRow2
'Printer.Print sQuYeMa;
' Printer.CurrentX = gCol2 + 41
' Printer.CurrentY = gRow2
' Printer.Print sNo
' Printer.CurrentX = gCol3 '18
' Printer.CurrentY = gRow3 '27
' Printer.Print Label59 '户名
' Printer.CurrentX = gCol3 + 41
' Printer.CurrentY = gRow3
' Printer.Print "" '地址
Printer.CurrentX = gCol4 + 19
Printer.CurrentY = gRow4 - 15
Printer.Print Label2 & " " & Label23 & " " & Label24 & " " & Label44 & " " & IIf(IsNull(Label45) = True, " ", Label45) & " " & IIf(IsNull(Label46) = True, " ", Label46) & " " & IIf(IsNull(Label47) = True, " ", Label47) & " " & IIf(IsNull(Label48) = True, " ", Label48) & " " & IIf(IsNull(Label49) = True, " ", Label49); '上期
' Printer.CurrentX = gCol4 + 12
' Printer.CurrentY = gRow4
' Printer.Print Label23; '本期
' Printer.CurrentX = gCol4 + 25
' Printer.CurrentY = gRow4
' Printer.Print ""; '表损
' Printer.CurrentX = gCol4 + 34
' Printer.CurrentY = gRow4
' Printer.Print Label24; '电量
' Printer.CurrentX = gCol4 + 42
' Printer.CurrentY = gRow4
' Printer.Print Label44; '电价
' Printer.CurrentX = gCol4 + 50
' Printer.CurrentY = gRow4
' Printer.Print "" '金额 Format(sJinE / 100#, "0.00")
' Printer.CurrentX = gCol4 + 59
' Printer.CurrentY = gRow4
' Printer.Print "退补:" & sBeiZhu '加入退补
' Printer.CurrentX = gCol5 - 2 * Len(Text35)
' Printer.CurrentY = gRow5
' Printer.Print Text35; '千
Printer.CurrentX = gCol5 + 8
Printer.CurrentY = gRow5 - 6
Printer.Print Label54 & " " & Label55 & " " & Label56 & " " & Label57 & " " & Label58; '百
' Printer.CurrentX = gCol5 + 10
' Printer.CurrentY = gRow5
' Printer.Print Label55; '十
' Printer.CurrentX = gCol5 + 18
' Printer.CurrentY = gRow5
' Printer.Print Label56; '元
' Printer.CurrentX = gCol5 + 24
' Printer.CurrentY = gRow5
' Printer.Print Label57; '角
' Printer.CurrentX = gCol5 + 32
' Printer.CurrentY = gRow5
' Printer.Print Label58; '分
' Printer.CurrentX = gCol5 + 52
' Printer.CurrentY = gRow5
' Printer.Print Label1.Caption '银行代码
' Printer.CurrentX = gCol6
' Printer.CurrentY = gRow6
' Printer.Print Text11; '年
' Printer.CurrentX = gCol6 + 9
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -