Datamax A-4310 Programmer's Manual page 171

Left
TabIndex
Top
Width
End
Begin VB.Label Label1
Caption
Height
Left
TabIndex
Top
Width
End
Begin VB.Menu File
Caption
Begin VB.Menu open
Caption
End
Begin VB.Menu exit
Caption
Shortcut
End
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
'**********************************
#If Win32 Then
Private Type DOC_INFO_1
pDocName As String
pOutputFile As String
pDatatype As String
End Type
#End If 'WIN32 Types
'**********************************
'** Function Declarations:
#If Win32 Then
Private Declare Function OpenPrinter& Lib "winspool.drv" Alias
"OpenPrinterA" (ByVal pPrinterName As String, phPrinter As Long, ByVal
pDefault As Long) ' Third param changed to long
Private Declare Function StartDocPrinter& Lib "winspool.drv" Alias
"StartDocPrinterA" (ByVal hPrinter As Long, ByVal Level As Long,
pDocInfo As DOC_INFO_1)
Class Series Programmer's Manual
Appendix B – Sample Programs
= 120
= 1
= 360
= 3492
= "File Name"
= 255
= 120
= 0
= 135
= 1455
= "&File"
= "&Open"
= "&Exit"
= ^Q
155