Appendix B
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 (*.*)*.*”
80 |
