Prikazi cijelu temu 14.12.2010 22:43
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: Poruka o završetku printanja, dali može?
Nastavak koda u isti modul ide gdje je i ovaj gore kod. Nemora ali tako ****lje.
PreuzmiIzvorni kôd (Visual Basic):
  1. Public Function GetString(ByVal PtrStr As Long) As String
  2.    Dim StrBuff As String * 256
  3.    
  4.    'Check for zero address
  5.   If PtrStr = 0 Then
  6.       GetString = " "
  7.       Exit Function
  8.    End If
  9.    
  10.    'Copy data from PtrStr to buffer.
  11.   CopyMemory ByVal StrBuff, ByVal PtrStr, 256
  12.    
  13.    'Strip any trailing nulls from string.
  14.   GetString = StripNulls(StrBuff)
  15. End Function
  16.  
  17. Public Function StripNulls(OriginalStr As String) As String
  18.    'Strip any trailing nulls from input string.
  19.   If (InStr(OriginalStr, Chr(0)) > 0) Then
  20.       OriginalStr = Left(OriginalStr, InStr(OriginalStr, Chr(0)) - 1)
  21.    End If
  22.  
  23.    'Return modified string.
  24.   StripNulls = OriginalStr
  25. End Function
  26.  
  27. Public Function PtrCtoVbString(Add As Long) As String
  28.     Dim sTemp As String * 512
  29.     Dim X As Long
  30.  
  31.     X = lstrcpy(sTemp, Add)
  32.     If (InStr(1, sTemp, Chr(0)) = 0) Then
  33.          PtrCtoVbString = ""
  34.     Else
  35.          PtrCtoVbString = Left(sTemp, InStr(1, sTemp, Chr(0)) - 1)
  36.     End If
  37. End Function
  38.  
  39. Public Function CheckPrinterStatus(PI2Status As Long) As String
  40.    Dim tempStr As String
  41.    
  42.    If PI2Status = 0 Then   ' Return "Ready"
  43.      CheckPrinterStatus = "Printer Status = Ready" & vbCrLf
  44.    Else
  45.       tempStr = ""   ' Clear
  46.      If (PI2Status And PRINTER_STATUS_BUSY) Then
  47.          tempStr = tempStr & "Busy  "
  48.       End If
  49.      
  50.       If (PI2Status And PRINTER_STATUS_DOOR_OPEN) Then
  51.          tempStr = tempStr & "Printer Door Open  "
  52.       End If
  53.      
  54.       If (PI2Status And PRINTER_STATUS_ERROR) Then
  55.          tempStr = tempStr & "Printer Error  "
  56.       End If
  57.      
  58.       If (PI2Status And PRINTER_STATUS_INITIALIZING) Then
  59.          tempStr = tempStr & "Initializing  "
  60.       End If
  61.      
  62.       If (PI2Status And PRINTER_STATUS_IO_ACTIVE) Then
  63.          tempStr = tempStr & "I/O Active  "
  64.       End If
  65.  
  66.       If (PI2Status And PRINTER_STATUS_MANUAL_FEED) Then
  67.          tempStr = tempStr & "Manual Feed  "
  68.       End If
  69.      
  70.       If (PI2Status And PRINTER_STATUS_NO_TONER) Then
  71.          tempStr = tempStr & "No Toner  "
  72.       End If
  73.      
  74.       If (PI2Status And PRINTER_STATUS_NOT_AVAILABLE) Then
  75.          tempStr = tempStr & "Not Available  "
  76.       End If
  77.      
  78.       If (PI2Status And PRINTER_STATUS_OFFLINE) Then
  79.          tempStr = tempStr & "Off Line  "
  80.       End If
  81.      
  82.       If (PI2Status And PRINTER_STATUS_OUT_OF_MEMORY) Then
  83.          tempStr = tempStr & "Out of Memory  "
  84.       End If
  85.      
  86.       If (PI2Status And PRINTER_STATUS_OUTPUT_BIN_FULL) Then
  87.          tempStr = tempStr & "Output Bin Full  "
  88.       End If
  89.      
  90.       If (PI2Status And PRINTER_STATUS_PAGE_PUNT) Then
  91.          tempStr = tempStr & "Page Punt  "
  92.       End If
  93.      
  94.       If (PI2Status And PRINTER_STATUS_PAPER_JAM) Then
  95.          tempStr = tempStr & "Paper Jam  "
  96.       End If
  97.  
  98.       If (PI2Status And PRINTER_STATUS_PAPER_OUT) Then
  99.          tempStr = tempStr & "Paper Out  "
  100.       End If
  101.      
  102.       If (PI2Status And PRINTER_STATUS_OUTPUT_BIN_FULL) Then
  103.          tempStr = tempStr & "Output Bin Full  "
  104.       End If
  105.      
  106.       If (PI2Status And PRINTER_STATUS_PAPER_PROBLEM) Then
  107.          tempStr = tempStr & "Page Problem  "
  108.       End If
  109.      
  110.       If (PI2Status And PRINTER_STATUS_PAUSED) Then
  111.          tempStr = tempStr & "Paused  "
  112.       End If
  113.  
  114.       If (PI2Status And PRINTER_STATUS_PENDING_DELETION) Then
  115.          tempStr = tempStr & "Pending Deletion  "
  116.       End If
  117.      
  118.       If (PI2Status And PRINTER_STATUS_PRINTING) Then
  119.          tempStr = tempStr & "Printing  "
  120.       End If
  121.      
  122.       If (PI2Status And PRINTER_STATUS_PROCESSING) Then
  123.          tempStr = tempStr & "Processing  "
  124.       End If
  125.      
  126.       If (PI2Status And PRINTER_STATUS_TONER_LOW) Then
  127.          tempStr = tempStr & "Toner Low  "
  128.       End If
  129.  
  130.       If (PI2Status And PRINTER_STATUS_USER_INTERVENTION) Then
  131.          tempStr = tempStr & "User Intervention  "
  132.       End If
  133.      
  134.       If (PI2Status And PRINTER_STATUS_WAITING) Then
  135.          tempStr = tempStr & "Waiting  "
  136.       End If
  137.      
  138.       If (PI2Status And PRINTER_STATUS_WARMING_UP) Then
  139.          tempStr = tempStr & "Warming Up  "
  140.       End If
  141.      
  142.       'Did you find a known status?
  143.      If Len(tempStr) = 0 Then
  144.          tempStr = "Unknown Status of " & PI2Status
  145.       End If
  146.      
  147.       'Return the Status
  148.      CheckPrinterStatus = "Printer Status = " & tempStr & vbCrLf
  149.    End If
  150. End Function
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
Ovaj post je ureden 1 puta. Posljednja izmjena 14.12.2010 22:44 od strane zxz.