Salut Jerome et le forum
Jérôme27 a écrit :
Le plus simple en fait serait que je trouve le code VBA de la boite "imprimer".
Afficher boîte de dialogue - Imprimer
Application.Dialogs(xlDialogPrint).Show
Récupération imprimante par défaut et port selectionné.
Declare Function GetProfileStringA Lib "KERNEL32" ( _
ByVal lpAppName As String, ByVal lpKeyName As String, _
ByVal lpDefault As String, ByVal lpReturnedString As String, _
ByVal nSize As Integer) As Integer
Sub Default_Printer_Port()
Dim Result As String * 255
Dim Printer As String
Dim Port As String
Call GetProfileStringA("Windows", "Device", "", Result, 254)
Printer = Left(Result, InStr(Result, ",") - 1)
Port = Mid(Result, InStr(InStr(Result, ",") + 1, Result, ",") + 1)
MsgBox "The current default printer is " & Printer
MsgBox "The current default port is " & Port
End Sub
Mytå