Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Scripting Microsoft Letter => A4

Letter => A4

3 réponses
Avatar
Julien
Bonjour,

Je cherche à créer de manière rapide des queues d'impression sur un serveur.
Pour l'instant la seule chose que je n'arrive pas à faire c'est à mettre le
papier par défaut de l'imprimante sur A4. Est ce que quelqu'un pourrait
m'aider ??

Merci beaucoup

Julien
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Julien
Ah oui pour info je crée les queues comme ça :
Set objWMIService =
GetObject("winmgmts:{impersonationLevel=impersonate}!"& server
&"rootcimv2")
Set objNewPort = objWMIService.Get("Win32_TCPIPPrinterPort").SpawnInstance_

objNewPort.Name = "IP_" & IP
objNewPort.Protocol = 1
objNewPort.HostAddress = IP
objNewPort.PortNumber = "9999"
objNewPort.SNMPEnabled = False
objNewPort.Put_

Set objPrinter = objWMIService.Get("Win32_Printer").SpawnInstance_

objPrinter.DriverName = Drivername
objPrinter.PortName = "IP_" & IP
objPrinter.DeviceID = PrinterName
objPrinter.Comment = comment
objPrinter.Location = Agence
objprinter.DoCompleteFirst = True
objPrinter.Network = True
objPrinter.Shared = True
objPrinter.Published = True
objPrinter.ShareName = PrinterName
objPrinter.Put_
Avatar
Jérôme Cornier [MS]
Bonjour,

Il s'agit sans doute de la propriété PaperSize :
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/vb98/html/vbproPaperSize.asp

--
Cordialement,
_________________________________________________________
Jérôme Cornier
Microsoft Services France

"Julien" a écrit dans le message de news:

Ah oui pour info je crée les queues comme ça :
Set objWMIService > GetObject("winmgmts:{impersonationLevel=impersonate}!"& server
&"rootcimv2")
Set objNewPort =
objWMIService.Get("Win32_TCPIPPrinterPort").SpawnInstance_

objNewPort.Name = "IP_" & IP
objNewPort.Protocol = 1
objNewPort.HostAddress = IP
objNewPort.PortNumber = "9999"
objNewPort.SNMPEnabled = False
objNewPort.Put_

Set objPrinter = objWMIService.Get("Win32_Printer").SpawnInstance_

objPrinter.DriverName = Drivername
objPrinter.PortName = "IP_" & IP
objPrinter.DeviceID = PrinterName
objPrinter.Comment = comment
objPrinter.Location = Agence
objprinter.DoCompleteFirst = True
objPrinter.Network = True
objPrinter.Shared = True
objPrinter.Published = True
objPrinter.ShareName = PrinterName
objPrinter.Put_



Avatar
Julien
Merci pour ton aide :))