Discussion :

[totof72a]

Bonjour a tous, je cherche une facon de controler que mon imprimante et bien connecter.cela a pour but d'eviter de lancer une impression via une macro automatiquement lancer par un autre logiciel quand l'imprimante et deconnecter. merci d'avance......

[zazaraignée]

Bonjour a tous, je cherche une facon de controler que mon imprimante et bien connecter.cela a pour but d'eviter de lancer une impression via une macro automatiquement lancer par un autre logiciel quand l'imprimante et deconnecter. merci d'avance......

Je ne suis pas certaine de comprendre le sens de ton message. Est-ce que tu t'es relu avant de poster ?

Voici ce que ça donne après une première interprétation-correction ortho-grammatico-machin-truc...

[correction par zaza] Bonjour à tous.

Je cherche une façon de vérifier si mon imprimante est bien connectée. Cela a pour but d'éviter de lancer une impression via une macro automatiquement lancée par un autre logiciel quand l'imprimante est deconnectée.

Merci d'avance...

Je ne sais plus trop si le mot automatiquement est encore bien utile à la compréhension du problème. Est-ce que ma correction ressemble bien à la question que tu veux nous poser ?

Merci de lire les règles du forum ou il est, entre autres, indiqué de s'exprimer clairement dans un français correct (autant que faire se peux dans le cas où ce ne serait pas ta langue maternelle, ce dont je doute que ce ne soit pas le cas ici).

[kiki29]

Salut, je ne suis pas sur de comprendre, donc à adapter à ton contexte ici pour une imprimante virtuelle Adobe Pdf

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Option Explicit
 
Dim sNomPortReseau As String
 
Sub Tst()
Dim PrinterDefault As String
 
    PrinterDefault = Application.ActivePrinter
    If Tst_Imprimante Then
        Application.ActivePrinter = sNomPortReseau
    Else
        MsgBox "Pas d'imprimante sur NeXY ", vbOKOnly + vbCritical, "Achtung"
        Exit Sub
    End If
 
    .....
 
    Application.ActivePrinter = PrinterDefault
End Sub
 
Private Function Tst_Imprimante() As Boolean
Dim i As Long
    Tst_Imprimante = False
    For i = 0 To 10
        If i < 10 Then
            sNomPortReseau = "Adobe PDF sur Ne0" & i & ":"
        Else
            sNomPortReseau = "Adobe PDF sur Ne" & i & ":"
        End If
        On Error Resume Next
        Application.ActivePrinter = sNomPortReseau
        If ActivePrinter = sNomPortReseau Then
            Tst_Imprimante = True
            Exit For
        End If
    Next i
End Function

[ucfoutu]

Bonjour,

pas certain de bien te comprendre, moi non plus ...

J'auraus alors tendance à te proposer une fonction du genre de la suivante (écrite à main levée) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
private function onvavoir(imprisouhaitee as string) as boolean
    dim imprimactu as string
    imprisouhaitee  = false
    on error resume next
    imprimactu = Application.ActivePrinter
    Application.ActivePrinter = imprisouhaitee 
    doevents
    if Application.ActivePrinter = imprisouhaitee then
      imprisouhaitee  = true 
      exit function
    end if
    Application.ActivePrinter = imprimactu
end function

et, appelant la valeur que retournerait :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

onvavoir(nom_de_ton_imprimante)

ou nom_de_ton_imprimante est l'intitulé (string) exact de l'imprimante à tester

je verrais bien si cette valeur est True ou False !

Edit : encore que, par goût personnel et par souci d'efficacité et de lisibilité, je donnerais la préférence à l'utillisation de la fonction EnumPrinters de la librairie winspool.drv de l'Api de Windows ...

[zazaraignée]

@ kiki et ucfoutu : Vous êtes bien bons de tenter une réponse sans attendre des explications-éclaircissements-correctifs-machins-chouettes-choses de la part de totof72a... Moi, à votre place, j'attendrais. Des fois que vos efforts n'iraient pas dans le bon sens. Juste pour vous éviter des frustrations inutiles.

[totof72a]

Bonjour a tous merci de vos reponses ,desolé pour ceux qui n'ont pas compris mon probleme je reexplique avec des mots simples.
voila je ne veut pas lancer l'impression quand mon imprimante et hors connection.Ceci a partir d'une macro.Je pense que je suis plus clair