home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / vb_code1 / ni_vb / nwprint.bas < prev    next >
BASIC Source File  |  1993-05-28  |  4KB  |  83 lines
  1. 'NWPRTQUE.BAS  NetWare Print Services Interface for Visual Basic For Windows
  2. 'Version 1.0
  3. 'Novell Systems Research Department, Novell, Inc.
  4. 'Copyright (c) 1993, Novell, Inc.
  5. 'This interface is not supported through Novell's regular
  6. 'support channels.  See README.TXT for more information.
  7.  
  8. Global Const CAPTURE_IS_NOT_ACTIVE = 0
  9. Global Const CAPTURE_IS_ACTIVE = 255
  10.  
  11. Type CAPTURE_FLAGS
  12.     status As String * 1
  13.     flags As String * 1
  14.     tabSize As String * 1
  15.     serverPrinter As String * 1
  16.     numberOfCopies As String * 1
  17.     formType As String * 1
  18.     reserved1 As String * 1
  19.     bannerText As String * 13
  20.     reserved2 As String * 1
  21.     localLPTDevice As String * 1
  22.     flushCaptureTimeoutCount As Integer
  23.     flushCaptureOnDeviceClose As String * 1
  24.     maxLines As Integer
  25.     maxChars As Integer
  26.     formName As String * 13
  27.     LPTCaptureFlag As String * 1
  28.     fileCaptureFlag As String * 1
  29.     timingOutFlag As String * 1
  30.     printerSetupBuffer As Long
  31.     printerResetBuffer As Long
  32.     connectionIDQueuePrintJob As String * 1
  33.     captureInProgress As String * 1
  34.     printQueueFlag As String * 1
  35.     printJobValid As String * 1
  36.     printQueueID As Long
  37.     printJobNumber As Integer
  38. End Type
  39.  
  40. Type SET_CAPTURE_FLAGS
  41.      status As String * 1
  42.      flags As String * 1
  43.      tabSize As String * 1
  44.      serverPrinter As String * 1
  45.      numberOfCopies As String * 1
  46.      formType As String * 1
  47.      reserved1 As String * 1
  48.      bannerText As String * 13
  49.      reserved2 As String * 1
  50.      localLPTDevice As String * 1
  51.      flushCaptureTimeoutCount As Integer
  52.      flushCaptureOnDeviceClose As String * 1
  53.      maxLines As Integer
  54.      maxChars As Integer
  55.      formName As String * 13
  56.      reserved3 As String * 1
  57. End Type
  58.  
  59. Declare Function CancelLPTCapture Lib "NWNETAPI.DLL" () As Integer
  60. Declare Function CancelSpecificLPTCapture Lib "NWNETAPI.DLL" (ByVal lptDevice%) As Integer
  61. Declare Function EndLPTCapture Lib "NWNETAPI.DLL" () As Integer
  62. Declare Function EndSpecificLPTCapture Lib "NWNETAPI.DLL" (ByVal lptDevice%) As Integer
  63. Declare Function FlushLPTCapture Lib "NWNETAPI.DLL" () As Integer
  64. Declare Function FlushSpecificLPTCapture Lib "NWNETAPI.DLL" (ByVal lptDevice%) As Integer
  65. Declare Function GetBannerUserName Lib "NWNETAPI.DLL" (ByVal userName$) As Integer
  66. Declare Function GetDefaultCaptureFlags Lib "NWNETAPI.DLL" (captureFlags As CAPTURE_FLAGS) As Integer
  67. Declare Function GetDefaultLocalPrinter Lib "NWNETAPI.DLL" () As Integer
  68. Declare Function GetLPTCaptureStatus Lib "NWNETAPI.DLL" (serverNumber%) As Integer
  69. Declare Function GetPrinterQueue Lib "NWNETAPI.DLL" (ByVal printerNumber%, queueID&) As Integer
  70. Declare Function GetPrinterStatus Lib "NWNETAPI.DLL" (ByVal printerNumber%, printerHalted%, printerOffLine%, formType%, targetPrinter%) As Integer
  71. Declare Function GetSpecificCaptureFlags Lib "NWNETAPI.DLL" (ByVal localLPTDevice%, captureFlags As CAPTURE_FLAGS) As Integer
  72. Declare Function SetBannerUserName Lib "NWNETAPI.DLL" (ByVal userName$) As Integer
  73. Declare Function SetCapturePrintJob Lib "NWNETAPI.DLL" (ByVal lptDevice%, ByVal jobNumber%, jobFileHandle As FILE_HANDLE) As Integer
  74. Declare Function SetCapturePrintQueue Lib "NWNETAPI.DLL" (ByVal lptDevice%, ByVal connID%, ByVal queueID&) As Integer
  75. Declare Function SetDefaultCaptureFlags Lib "NWNETAPI.DLL" (setCaptureFlags As SET_CAPTURE_FLAGS) As Integer
  76. Declare Function SetDefaultLocalPrinter Lib "NWNETAPI.DLL" (ByVal lptDevice%) As Integer
  77. Declare Function SetSpecificCaptureFlags Lib "NWNETAPI.DLL" (ByVal lptDevice%, setCaptureFlags As SET_CAPTURE_FLAGS) As Integer
  78. Declare Function SetSpoolFlags Lib "NWNETAPI.DLL" (ByVal printFlags%, ByVal tabSize%, ByVal printerNumber%, ByVal numberOfCopies%, ByVal formType%, ByVal bannerName%) As Integer
  79. Declare Function SpecifyCaptureFile Lib "NWNETAPI.DLL" (ByVal driveHandle%, ByVal filePath$) As Integer
  80. Declare Function StartLPTCapture Lib "NWNETAPI.DLL" () As Integer
  81. Declare Function StartSpecificLPTCapture Lib "NWNETAPI.DLL" (ByVal lptDevice%) As Integer
  82.  
  83.