Les FAQs Word et PowerPoint

Le VBA ne reconnaît que l'imprimante active. L'imprimante active est la dernière utilisée et non l'imprimante par défaut.

Declare Function GetProfileString Lib "kernel32" _ Alias "GetProfileStringA" _ (ByVal lpAppName As String, _ ByVal lpKeyName As String, _ ByVal lpDefault As String, _ ByVal lpReturnedString As String, _ ByVal nSize As Long) As Long

Sub ImprimerSurDéfaut()
'macro écrite par Geo
Dim MémoireImpr As String
  MémoireImpr = ActivePrinter
  ActivePrinter = ImprimanteWindows
  ActiveDocument.PrintOut
  ActivePrinter = MémoireImpr
End Sub
Private Function ImprimanteWindows()
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim s1 As String
Dim r As Long
Dim Buffer As String
Dim NomImpr As String
Dim Spool As String
Dim Port As String
Buffer = Space(8192)
r = GetProfileString("Windows", "Device", "", Buffer, Len(Buffer)) Debug.Print Buffer i = InStr(Buffer, Chr(0)) If i > 0 Then
  s1 = Left(Buffer, i - 1)
  j = InStr(s1, ",")
  k = InStr(j + 1, s1, ",")
  NomImpr = Left(s1, j - 1)
  If k > j Then
    Spool = Mid(s1, j + 1, k - j - 1)
    Port = Mid(s1, k + 1)
  End If
Else
   ' pas d'imprimante par défaut ?
   NomImpr = ""
End If
ImprimanteWindows = NomImpr & " on " & Port End Function

Ecrire un commentaire

Nom: Email:  ne pas notifiernotifier Titre:     Saisissez le code que vous voyez.

Commentaires

Ajouter un nouveau Rechercher

Powered by !JoomlaComment 3.26

3.26 Copyright (C) 2008 Compojoom.com / Copyright (C) 2007 Alain Georgette / Copyright (C) 2006 Frantisek Hliva. All rights reserved."