?? printdemoabos.frm
字號:
VERSION 5.00
Begin VB.Form PrintDemoabos
BackColor = &H80000009&
BorderStyle = 3 'Fixed Dialog
ClientHeight = 10530
ClientLeft = 45
ClientTop = 45
ClientWidth = 8115
ClipControls = 0 'False
ControlBox = 0 'False
LinkTopic = "Form2"
MaxButton = 0 'False
MinButton = 0 'False
NegotiateMenus = 0 'False
ScaleHeight = 10530
ScaleWidth = 8115
ShowInTaskbar = 0 'False
Visible = 0 'False
Begin VB.PictureBox picInf
BackColor = &H80000005&
BorderStyle = 0 'None
Height = 8715
Index = 0
Left = -60
ScaleHeight = 8715
ScaleWidth = 6105
TabIndex = 0
Top = 60
Width = 6105
Begin VB.Label Label1
BackColor = &H00FFFFFF&
Caption = "2006年10月21日"
BeginProperty Font
Name = "黑體"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 6
Left = 1740
TabIndex = 7
Top = 7980
Width = 1815
End
Begin VB.Label Label1
BackColor = &H00FFFFFF&
Caption = "企獨粵穗總字第XXXXXX號440100000001"
BeginProperty Font
Name = "黑體"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 5
Left = 1740
TabIndex = 6
Top = 7440
Width = 4095
End
Begin VB.Label Label1
BackColor = &H00FFFFFF&
Caption = "安利(中國)日用品有限公司廣東分公司"
BeginProperty Font
Name = "黑體"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 4
Left = 1740
TabIndex = 5
Top = 6900
Width = 4095
End
Begin VB.Label Label1
Alignment = 2 'Center
BackColor = &H00FFFFFF&
Caption = "廣州市"
BeginProperty Font
Name = "黑體"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 3
Left = 1200
TabIndex = 4
Top = 4200
Width = 4695
End
Begin VB.Label Label1
Alignment = 2 'Center
BackColor = &H00FFFFFF&
Caption = "工人"
BeginProperty Font
Name = "黑體"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 390
Index = 2
Left = 3180
TabIndex = 3
Top = 2880
Width = 2400
End
Begin VB.Label Label1
Alignment = 2 'Center
BackColor = &H00FFFFFF&
Caption = "女"
BeginProperty Font
Name = "黑體"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
Index = 1
Left = 3180
TabIndex = 2
Top = 2340
Width = 2400
End
Begin VB.Label Label1
Alignment = 2 'Center
BackColor = &H00FFFFFF&
Caption = "直銷人員"
BeginProperty Font
Name = "黑體"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 390
Index = 0
Left = 3180
TabIndex = 1
Top = 1800
Width = 2400
End
End
End
Attribute VB_Name = "PrintDemoabos"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub Form_Load()
On Error Resume Next
'Me.Height = 23000
'Me.Width = 12000
'Me.Left = 0
'Me.Top = 0
' ada.settop_car_x (30)
' ada.settop_car_y (15)
' ada.setleft_car_x (135)
' ada.setleft_car_y (13000)
' ada.setright_car_x (5265)
' ada.setright_car_y (13000)
'
' 'whether he or she has a spouse
' ada.setstrspouseflag ("N")
' 'distributor type(A/B/C/D/E/F/G/P)
' ada.setstrdsttype ("P")
' 'center code
' ada.setstrshopno ("01")
' 'center name
' ada.setstrshopname ("廣州測試店鋪")
'
' 'barcode number
' ada.setlngbarcode (25377389)
' 'ada number
' ada.setstradano ("360-00025377389-1")
' 'ada name
' ada.setstradaname ("吳海棠")
' 'begin date
' ada.setstrbegindate ("2006-01-23")
' 'end date
' ada.setstrenddate ("2007-08-31")
' 'owner center
' ada.setstrownershop ("21")
' 'pos number
' ada.setstrpos ("01")
' 'information
' ada.setstrinformation ("提示信息")
'Me.picInf(0).Left = ada.gettop_car_x()
'Me.picInf(0).Top = ada.gettop_car_y()
'Me.picInf(1).Left = ada.getleft_car_x()
'Me.picInf(1).Top = ada.getleft_car_y()
'Me.picInf(2).Left = ada.getright_car_x()
'Me.picInf(2).Top = ada.getright_car_y()
openReport
Me.Enabled = False
'Printer.Orientation = vbPRORLandscape '橫向打印
Printer.PaperBin = vbPRBNUpper
Printer.PaperSize = vbPRPSA5
Me.PrintForm
'Printer.PaperBin = vbPRBNLower
'Printer.PaperSize = vbPRPSA4
Unload Me
End Sub
Private Function openReport() As Boolean
Me.Label1(0).Caption = ada.getadaName()
Me.Label1(1).Caption = ada.getadaSex()
Me.Label1(2).Caption = ada.getotherJob()
Me.Label1(3).Caption = ada.getadaArea()
Me.Label1(4).Caption = ada.getfzjg()
Me.Label1(5).Caption = ada.getcardNumber()
Me.Label1(6).Caption = ada.geteffectDate()
End Function
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -