Datamax-O'Neil DPL Programmer’s Manual - Manual (Page 169)

Appendix B – Sample Programs
161
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 (*.*)|*.*”
‘Specify Default Filter
CommonDialog1.FilterIndex = 1
‘Display Open dialog box
CommonDialog1.ShowOpen
loadfile = CommonDialog1.FileName
Label2.Caption = loadfile
Exit Sub
ErrHandler:
Exit Sub
End Sub
Private Sub cmdStoreImage_Click()
Dim hPrinter&
Dim jobid&
Dim res&
Dim written&
Dim printdata$
Dim docinfo As DOC_INFO_1
loadfile = Form1.txtFile.Text
If loadfile = ““ Then
MsgBox “You must Open a file to send”, vbExclamation