Diriger une impression

Version imprimable

slt le forum ..

un pti pb
je souhaite imprimer un report sur 2 imprimantes en meme tps..mais rien a faire .les 2 s imprime sur l imprimante par defaut du systeme.
l imprimante \\W2K3S1\Copieur Toshiba est bien trouve puisqu en debeuggage je passe par la ligne set . si il la trouvai pas il fera un exit for ..
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 DRmoutarde.Orientation = rptOrientLandscape DRmoutarde.PrintReport ' imprimante par defaut '================= ' change d imprimante copieur '\\W2K3S1\Copieur Toshiba" Dim X As Printer For Each X In Printers If X.DeviceName = "\\W2K3S1\Copieur Toshiba" Then Set Printer = X DRmoutarde.PrintReport ' Cesse la recherche d'imprimante. Exit For End If Next

15/06/2007, 17h17
OhMonBato

Le Exit For se fait si il la trouve l'imprimante non ?
Es tu sur qu'elle est trouvée ? Tu as mis un point d'arret par exemple ?

CQFD, d'autant que lorsque ta collection est balayée entièrement, tu sors de la boucle...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim X As Printer
For Each X In Printers
   ' pour contrôle
   Debug.Print X.DeviceName
   '
   If X.DeviceName = "\\W2K3S1\Copieur Toshiba" Then
 
      Set Printer = X
      DRmoutarde.PrintReport 
 
      ' Cesse la recherche d'imprimante.
      Exit For
   End If
Next

Voici le code que j'utilise dans mon appli.
J'imprime mes états avec l'active X CR9. J'ai ajouter un menu "option d'impression" à la fenêtre du CR9 Viewer.

Code:

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
 
Private Sub mnu_Options_Click()
 
    'Le bouton imprimer a été cliqué
    Dim Report As CRAXDRT.Report
    Set Report = Me.CRViewer91.ReportSource
 
    Dim cOrientation As CRPaperOrientation
    Dim cSize As CRPaperSize
    cOrientation = Report.PaperOrientation
    cSize = Report.PaperSize
 
    Report.PrinterSetup Me.hwnd
 
    Dim P As Printer
 
    For Each P In Printers
        If P.DeviceName = Report.PrinterName Then
            Report.SelectPrinter P.DriverName, P.DeviceName, P.Port
            Exit For
        End If
    Next P
 
    Report.PaperOrientation = cOrientation
    Report.PaperSize = cSize
 
End Sub

Pour ton cas, je pense qu'il te manque le "Report.SelectPrinter"...
L'EXIT FOR n'est pas indispensable mais permet de gagner (un peu) du temps lorsqu'il y a des nombreuses imprimantes.

18/06/2007, 08h23
Yannv

Citation:

Envoyé par OhMonBato

Le Exit For se fait si il la trouve l'imprimante non ?
Es tu sur qu'elle est trouvée ? Tu as mis un point d'arret par exemple ?

bjs . oui oui elle est trouvée .. j ai mis un pts d arret pour tester
18/06/2007, 08h45
La Praline

Bonjour,

Je me permet de te dire que si tu n'essais pas pls que ca de développer ton bout de code, personne ne le fera à ta place...

Cordialement
18/06/2007, 09h04
Yannv

Citation:

Envoyé par La Praline

Bonjour,

Je me permet de te dire que si tu n'essais pas pls que ca de développer ton bout de code, personne ne le fera à ta place...

Cordialement

bjs ..
je prens en compte ta remarque mais la boucle fonctionne . mon imprimante est trouvéé mais n est visiblement pas settée .
je ne vois pas pourquoi alourdir mon code ...
18/06/2007, 09h15
Phifi

Tu imprimes quoi ? -> DRmoutarde.PrintReport (DataReport ?)
Tu as essayé de temporiser avant l'affectation de l'imprimante et le lancement de l'impression ?
18/06/2007, 09h25
Yannv

Citation:

Envoyé par Phifi

Tu imprimes quoi ? -> DRmoutarde.PrintReport (DataReport ?)
Tu as essayé de temporiser avant l'affectation de l'imprimante et le lancement de l'impression ?

bjs .. oui j imprime a un data report ..
je vais tester ton id de tempo

merci pour la piste
18/06/2007, 09h32
La Praline

Bonjour,

C'était à cela que servait ma remarque. Je me suis mal exprimé pardonnes-moi.
Le but n'est pas que tu trouves la solution tout seul... évidement non, mais par contre il est souvent bon de bien détailler les choses afin que l'on puisse bien cerner le problème et te donner des pistes en vue de le résoudre.

Cordialement

PS: prière de prendre soin de l'othographe et de la ponctuation.
18/06/2007, 09h35
Yannv

Citation:

Envoyé par Yannv

bjs .. oui j imprime a un data report ..
je vais tester ton id de tempo

merci pour la piste

Ca change rien . meme probleme
je me demande si ma commande est correct pour setter l imprimante
j vais fouiller

re..
alors ....
mon probleme ne vient pas en fait du choix de l imprimante car si apres le set je fais un printer.print"zzzzz" , c est bien imprimé sur la bonne imprimante .
le pb viens donc de l impression du datareport qui visiblement n est pas dirigé..
Code:

1 2 3 4 5 6 7 8 9 10 Dim X As Printer For Each X In Printers Debug.Print X.DeviceName If X.DeviceName = "\\W2K3S1\Copieur Toshiba" Then Set Printer = X Printer.Print "test yann" ' DRmoutarde.PrintReport Exit For End If Next

18/06/2007, 12h11
lstjean
As tu essayé le
Code:

1 2 Report.SelectPrinter P.DriverName, P.DeviceName, P.Port
comme je te l'avais suggérer plus haut ?
18/06/2007, 13h26
Yannv
Citation:
Envoyé par lstjean

As tu essayé le

Code:

1 2 Report.SelectPrinter P.DriverName, P.DeviceName, P.Port

comme je te l'avais suggérer plus haut ?
oui , methode ou membres de donnée introuvable .
j vais me pencher dessus ..
18/06/2007, 13h44
ThierryAIM
Citation:
Envoyé par lstjean

As tu essayé le

Code:

1 2 Report.SelectPrinter P.DriverName, P.DeviceName, P.Port

comme je te l'avais suggérer plus haut ?
cette méthode n'existe pas avec un DataReport, qui n'est pas un objet Crystal Report, ne pas confondre
18/06/2007, 13h48
Yannv

Citation:

Envoyé par ThierryAIM

cette méthode n'existe pas avec un DataReport, qui n'est pas un objet Crystal Report, ne pas confondre

Bjs .. et oui c est bien mon pb .
je souhaite imprimer un datareport 1x sur l imprimante par defaut ( aucun pb ) et une fois sur une autre imprimante .
J arrive bien a pointer sur la seconde imprimante et imprimer avecc un Printer.print"zzz" mais pas moyen d envoyer le DR la bas ..
18/06/2007, 13h56
ThierryAIM

ça, j'ai bien compris, et si j'avais une solution, je te l'aurais donné

Juste une idée, mais sans garantie, l'impression d'un DR étant asynchrone, peut-être essayer de le fermer après la 1ere impression, puis de le rouvrir après avoir changer l'imprimante par défaut ...
18/06/2007, 14h00
Yannv

Citation:

Envoyé par ThierryAIM

ça, j'ai bien compris, et si j'avais une solution, je te l'aurais donné

Juste une idée, mais sans garantie, l'impression d'un DR étant asynchrone, peut-être essayer de le fermer après la 1ere impression, puis de le rouvrir après avoir changer l'imprimante par défaut ...

Ah oui ! ! je tente de suite ...

.. non . ca marche pas ca imprime toujours sur la premiere imprimante .
j vais devoir me rabattre sur un CR . pff

merci encore pour ton idée
18/06/2007, 21h23
lstjean

Citation:

Envoyé par ThierryAIM

cette méthode n'existe pas avec un DataReport, qui n'est pas un objet Crystal Report, ne pas confondre

Autant pour moi :oops:
Je suis trop conditionné CR.
21/06/2007, 16h22
Yannv

bon ben je crois qu il n y a pas de moyen .
merci encore pour vos pistes ..