Discussion :

[Nix66]

Bonjour,

Je souhaite imprimer un datareport vers une imprimante spécifique.

Je vous explique mon problème, il s'agit d'un programme qui est exécuté sur une station citrix via une session windows générique et il nous est impossible de configurer des imprimantes sur celle-ci.

Ce programme génère un datareport mais je coince pour l'envoyer sur une imprimante. Forcement en local, je peux l'ouvrir, l'imprimer sur différentes imprimantes configuré sur mon poste etc, etc...

Je voulais savoir s'il existait une méthode pour forcer une imprimante avec un driver par exemple avec des méthodes de ce type :

Code :

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

1
2
Printer.Nameserver = "\\STRHNTFS02\STROFF12"
Printer.Driver = "hp....dll"

Voir directement depuis le datareport :

Code :

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

Datareport1.printerqueue = "\\STRHNTFS02\STROFF12"

Voilà 2 jours que je cherche une solution pour ce problème mais je ne trouve aucune solution.

Merci de votre aide

[Nix66]

J'ai pu m'arranger afin que les imprimantes soit défini sur la station citrix, par contre je n'arrive pas à imprimer ailleur que sur l'imprimante par défaut, pourtant j'utilise ce code :

Code :

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

1
2
3
4
5
6
7
8
9
Dim X As Printer
For Each X In Printers
   If UCase(X.DeviceName) = "\\STRHNTFS02\STROFF12" Then
      ' Set printer as system default.
      Set Printer = X
      ' Stop looking for a printer.
      Exit For
   End If
Next

Du coup mon imprimante devrait être la bonne, mais avec :

Code :

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

datareport1.PrintReport

L'impression sort sur l'imprimante par défaut qui n'est pas celle spécifiée

[ProgElecT]

If UCase(X.DeviceName) = "\\STRHNTFS02\STROFF12" Then
' Set printer as system default.
Set Printer = X
' Stop looking for a printer.
Exit For
End If

as-tu pu constater que ta condition était au moins une fois vraie ?
\\STRHNTFS02\STROFF12 me semble plutôt le chemin ou est instalé l'imprimante, mais pas son nom de partage.

Sinon,

Code :

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

Debug.Print X.DeviceName

dans ta boucle For Each X In Printers pourrais peut être te donner des indications utiles.

Une possibilité aussi avant la premiere utilisation suite à la selection de l'imprimante essai un

Code :

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

Print ""

Une dernière chose, essais d'instancier ton datareport après la sélection de l'imprimante.

[ThierryAIM]

ceci peut-il aider :
http://vb.developpez.com/faqvbs/?pag...wshmapPrinters

[Nix66]

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
Dim Prt As Printer
 
    For Each Prt In Printers
 
        If UCase(Prt.DeviceName) = UCase("\\STRHNTFS02\STROFF12") Then
            Dim objNetwork As Object
            Set objNetwork = CreateObject("WScript.Network")
            On Error Resume Next
            objNetwork.SetDefaultPrinter "\\STRHNTFS02\STROFF12"
            objNetwork.Orientation = 1
            objNetwork.PaperSize = 9
            Exit For
        End If
    Next
 
DataReport1.PrintReport

Cette solution fonctionne mais cela fonctionnera correctement seulement pour du monotâche monoutilisateur, 10 utilisateurs sur la même session windows qui lance les impressions sur différentes imprimantes, il risque d'y avoir un conflit vu que PrintReport imprime sur l'imprimante par défaut et les papiers risquent de se mélanger.

J'ai fait le test sur mon poste, 2 boutons pointant chacun sur une autre imprimante, l'application exécutée 2 fois, je clique sur le 1er bouton sur l'un puis le 2e sur l'autre, les impressions partent sur la même imprimante (l'une ou l'autre en fonction de l'ordre selon lequel je les ai pressé).

Il faudrait que j'arrive à définir l'imprimante au niveau application et non utilisateur.