Bonjour
Je veux changer le nom dun job dimpression qui est attente dans le spool Windows.
Jutilise la fonction API « SetJob » et la structure « JOB_INFO_2 » qui contient le champ « pDocument » qui doit permettre le changement de nom. Mais ça ne marche pas
Je ne trouve pas mon erreur, ni dinformation sur la méthode
Voilà mon code en VB.net
Merci pour votre aide.
Option Strict Off
Option Explicit On
Imports System
Imports System.Text
Imports Microsoft.VisualBasic
Imports System.Runtime.InteropServices
Module Module1
<DllImport("winspool.drv", EntryPoint:="SetJobA", _
SetLastError:=True, CharSet:=CharSet.Ansi, _
ExactSpelling:=True, _
CallingConvention:=CallingConvention.StdCall)> _
Public Function SetJob _
(ByVal hPrinter As Int32, _
ByVal JobId As Int32, _
ByVal Level As Int32, _
ByRef pJob As JOB_INFO_2, _
ByVal Command_Renamed As Int32) As Boolean
End Function 'Le "A" pour Ansi et le "W" pour Unicode
<DllImport("winspool.drv", EntryPoint:="OpenPrinterW", _
SetLastError:=True, CharSet:=CharSet.Auto, _
ExactSpelling:=True, _
CallingConvention:=CallingConvention.StdCall)> _
Public Function OpenPrinter _
(ByVal pPrinterName As IntPtr, _
ByRef phPrinter As IntPtr, _
ByVal pDefault As IntPtr) As Boolean
End Function
<DllImport("winspool.drv", EntryPoint:="ClosePrinter", _
SetLastError:=True, CharSet:=CharSet.Auto, _
ExactSpelling:=True, _
CallingConvention:=CallingConvention.StdCall)> _
Public Function ClosePrinter _
(ByVal hPrinter As IntPtr) As Boolean
End Function
Const CCHDEVICENAME As Integer = 32
Const CCHFORMNAME As Integer = 32
<StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Auto)> _
Public Structure SYSTEMTIME
Public wYear As Short
Public wMonth As Short
Public wDayOfWeek As Short
Public wDay As Short
Public wHour As Short
Public wMinute As Short
Public wSecond As Short
Public wMilliseconds As Short
End Structure
<StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Auto)> _
Public Structure DEVMODE
<MarshalAsAttribute(UnmanagedType.ByValTStr, SizeConst:=CCHDEVICENAME)> _
Public dmDeviceName As String
Public dmSpecVersion As Short
Public dmDriverVersion As Short
Public dmSize As Short
Public dmDriverExtra As Short
Public dmFields As Integer
Public dmOrientation As Short
Public dmPaperSize As Short
Public dmPaperLength As Short
Public dmPaperWidth As Short
Public dmScale As Short
Public dmCopies As Short
Public dmDefaultSource As Short
Public dmPrintQuality As Short
Public dmColor As Short
Public dmDuplex As Short
Public dmYResolution As Short
Public dmTTOption As Short
Public dmCollate As Short
<MarshalAsAttribute(UnmanagedType.ByValTStr, SizeConst:=CCHFORMNAME)> _
Public dmFormName As String
Public dmUnusedPadding As Short
Public dmBitsPerPel As Integer
Public dmPelsWidth As Integer
Public dmPelsHeight As Integer
Public dmDisplayFlags As Integer
Public dmDisplayFrequency As Integer
End Structure
<StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Ansi)> _
Public Structure JOB_INFO_2
Public JobId As Integer
Public pPrinterName As String
Public pMachineName As String
Public pUserName As String
Public pDocument As Integer
Public pNotifyName As String
Public pDatatype As String
Public pPrintProcessor As String
Public pParameters As String
Public pDriverName As String
Public pDevMode As Integer ' DEVMODE
Public pStatus As String
Public pSecurityDescriptor As Integer ' SECURITY_DESCRIPTOR
Public Status As Integer
Public Priority As Integer
Public Position As Integer
Public StartTime As Integer
Public UntilTime As Integer
Public TotalPages As Integer
Public Size As Integer
Public Submitted As SYSTEMTIME
Public time As Integer
Public PagesPrinted As Integer
End Structure
<StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Auto)> _
Public Structure ACL
Public AclRevision As Byte
Public Sbz1 As Byte
Public AclSize As Short
Public AceCount As Short
Public Sbz2 As Short
End Structure
<StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Auto)> _
Public Structure SECURITY_DESCRIPTOR
Public Revision As Byte
Public Sbz1 As Byte
Public Control As Integer
Public Owner As Integer
Public Group As Integer
Public Sacl As ACL
Public Dacl As ACL
End Structure
Public Const JOB_CONTROL_PAUSE As Integer = 1
Public Const JOB_CONTROL_RESUME As Integer = 2
Public Const JOB_CONTROL_CANCEL As Integer = 3
Public Const JOB_CONTROL_RESTART As Integer = 4
Public Const JOB_CONTROL_DELETE As Integer = 5
Public Sub Impression()
'Executé par le bouton
Dim hPrinter As Integer 'Descripteur d'imprimante
Dim res As Boolean 'Résultat des appels à l'API
Dim jobinfo As New JOB_INFO_2
'Ouvre un objet Printer pour l'imprimante spécifiée et récupère son handle
res = OpenPrinter(Marshal.StringToHGlobalUni("LaserJet I" ), hPrinter, 0)
If res = 0 Then
MsgBox("Impossible d'ouvrir l'imprimante" )
Exit Sub
End If
'Renseigne la structure JOB_INFO_2 (Uniquement les champs utiles)
jobinfo.JobId = 2 'Numéro du job dans le spool
jobinfo.pDocument = Marshal.StringToHGlobalAuto("Nouveau Nom du Job dans le spool" )
'jobinfo.pDocument = ("Nouveau Nom du Job dans le spool" )
'Affecte au job son nom
res = SetJob(hPrinter, jobinfo.JobId, 2, jobinfo, 2)
If res = 0 Then 'Affiche un message d'erreur
MsgBox("SetJob a échoué" )
End If
'Ferme l'objet Printer ouvert
res = ClosePrinter(hPrinter)
If res = 0 Then 'Affiche un message d'erreur
MsgBox("ClosePrinter a échoué" )
Exit Sub
End If
End Sub
End Module
