~ Edito ~
12/03/2006 @ 13:39
Depuis la dernière mise à jour (qui remonte à... oulala plusieurs mois), un petit ménage de printemps s'impose. Ca tombe bien, c'est presque la période. Au menu, et progressivement sur les jours à venir, rafraîchissement de plusieurs fonctions et procédures, nouvelles APIs et nouveaux programmes.
~ Rechercher ~
~ Annuaire VB ~
~ Partenaires ~
|
Fonction OpenPrinter
Declare Function OpenPrinter Lib "winspool.drv" Alias "OpenPrinterA" ( _ ByVal pPrinterName As String, _
phPrinter As Long, _
pDefault As PRINTER_DEFAULTS) As Long
Versions : . Windows 95/98 : Oui . Windows NT : A partir de 3.1 . Windows 2000/XP : OuiDescription : Cette fonction retourne un pointeur vers une imprimante spécifique.
pPrinterName est le nom de l'imprimante dont on cherche à récupérer un pointeur,
phPrinter est la variable de retour qui contient le pointeur,
pDefault est une structure qui définit l'accès à l'imprimante (voir ci-dessous).
Si la fonction échoue, elle retourne 0.
Type PRINTER_DEFAULTS
pDatatype As String
pDevMode As DEVMODE
DesiredAccess As Long
End Type Type DEVMODE
dmDeviceName As String * CCHDEVICENAME
dmSpecVersion As Integer
dmDriverVersion As Integer
dmSize As Integer
dmDriverExtra As Integer
dmFields As Long
dmOrientation As Integer
dmPaperSize As Integer
dmPaperLength As Integer
dmPaperWidth As Integer
dmScale As Integer
dmCopies As Integer
dmDefaultSource As Integer
dmPrintQuality As Integer
dmColor As Integer
dmDuplex As Integer
dmYResolution As Integer
dmTTOption As Integer
dmCollate As Integer
dmFormName As String * CCHFORMNAME
dmUnusedPadding As Integer
dmBitsPerPel As Long
dmPelsWidth As Long
dmPelsHeight As Long
dmDisplayFlags As Long
dmDisplayFrequency As Long
End Type
Constante | Valeur |
Définition |
CCHDEVICENAME | 32 |
Nombre de caractère pour le nom du périphérique. |
CCHFORMNAME | 32 |
Nombre de caractère pour le nom de la fenêtre. |
Exemple d'utilisation :
' Ne pas oublier les déclarations de types de de constantes.
' Le code suivant ouvre simplement la fenêtre des propriétés
' de l'imprimante courante.
Dim lgRep As Long, lgHnd As Long, tyPrinter As PRINTER_DEFAULTS
lgRep = OpenPrinter(Printer.DeviceName, lgHnd, tyPrinter)
If (lgRep <> 0) Then
lgRep = PrinterProperties(Me.hwnd, lgHnd)
ClosePrinter lgHnd
End If
Retour à la liste des API |