Table of Contents
Advertisement
ClientHeight
ClientLeft
ClientTop
ClientWidth
LinkTopic
MaxButton
MinButton
ScaleHeight
ScaleWidth
StartUpPosition =
Begin VB.ComboBox cmboFonts
Height
Left
TabIndex
Text
Top
Width
End
Begin VB.CommandButton cmdExit
Caption
Height
Left
TabIndex
Top
Width
End
Begin VB.CommandButton cmdPrint
Caption
Height
Left
TabIndex
Top
Width
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'Print label by clicking print button with the mouse
Private Sub cmdPrint_Click()
'font name as seen in application font list box
'if not found, driver will inform GDI to generate an
'image that will be downloaded
Printer.FontName = cmboFonts.Text
'1,440 twips equals one inch
Printer.Height = 6480
DPL Command Reference
=
1065
=
60
=
345
=
2325
=
"Form1"
=
0
'False
=
0
'False
=
1065
=
2325
3
'Windows Default
=
315
=
90
=
2
=
"Font List"
=
45
=
2130
=
"Quit"
=
465
=
1350
=
1
=
495
=
825
=
"Print"
=
465
=
90
=
0
=
495
=
870
'4.5 inches in twips
289
Advertisement
Table of Contents
