Datamax E4203 User Manual Page 90

  • Download
  • Add to my manuals
  • Print
  • Page
    / 176
  • Table of contents
  • BOOKMARKS
  • Rated. / 5. Based on customer reviews
Page view 89
Appendix B
80 E-Class DPL Programmer’s Manual
Left = 120
TabIndex = 0
Top = 135
Width = 1455
End
Begin VB.Menu File
Caption = “&File”
Begin VB.Menu open
Caption = “&Open”
End
Begin VB.Menu exit
Caption = “&Exit”
Shortcut = ^Q
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
‘**********************************
‘** Type Definitions:
#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)
Private Declare Function StartPagePrinter& Lib “winspool.drv” (ByVal hPrinter
As Long)
Private Declare Function WritePrinter& Lib “winspool.drv” (ByVal hPrinter As
Long, pBuf As Any, ByVal cdBuf As Long, pcWritten As Long)
Private Declare Function EndDocPrinter& Lib “winspool.drv” (ByVal hPrinter As
Long)
Private Declare Function EndPagePrinter& Lib “winspool.drv” (ByVal hPrinter
As Long)
Private Declare Function ClosePrinter& Lib “winspool.drv” (ByVal hPrinter As
Long)
#End If ‘WIN32
Dim ch As String * 1, f1 As Integer, loadfile As String
Private Sub cmdOpenFile_Click()
On Error GoTo ErrHandler
‘ Set Filters
CommonDialog1.Filter = “All Files (*.*)|*.*”
Page view 89
1 2 ... 85 86 87 88 89 90 91 92 93 94 95 ... 175 176

Comments to this Manuals

No comments