Discussion :

[pmboutteau]

Bonjour,


J'ai un problème d'impression avec un même programme sur 2 imprimantes différentes.

L'une imprime tout correctement (Feuille form plus le contenu de tous les objets) et l'autre n'imprime que les objets ( pas ce qui est écrit en dur sur la feuille form).

Quelqu'un connait t'il le problème?

Merci d'avance.

[Theocourant]

Bonjour,

Peux-tu nous donner le code que tu utilises pour effectuer les impressions et la configuration des imprimantes ?

Merci

Théo

[pmboutteau]

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
Private Sub Command2_Click()
Dim nb As Integer
On Error GoTo Error
CommonDialog2.ShowPrinter
Printer.Orientation = 2
 
nb = CommonDialog2.Copies
Form1.AutoRedraw = True
 
For i = 1 To nb
    Form1.PrintForm
Next
Exit Sub
Error:
reponse = MsgBox("L'Imprimante a un problème !", vbExclamation, "Erreur d'Impression")
 
End Sub

Voici le code.

[zazaraignée]

et l'autre n'imprime que les objets ( pas ce qui est écrit en dur sur la feuille form).

Tu l'as "écrit en dur" comment sur la feuille, ton texte?

Code :

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

Form1.Print "Hello World!"  ' ?

Si c'est le cas, mets la propriété Autoredraw de la feuille à True.

[pmboutteau]

C'est pas du texte c'est une courbe que je trace directement dans la feuille form

Code :

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

Form1.Line (raff(rmem), caff(cmem))-(raff(r), caff(c))

[Delbeke]

peut être en mettant la proprieté autoredraw de la form a true

[pmboutteau]

Elle est déjà à True

[Theocourant]

Re,

Déjà tu devrais utiliser l'objet Printer, cela simplifierait grandement la partie gestion du nombre de copies...

Ensuite, il faut mettre l'AutoRedraw à True au niveau de ta courbe puis faire un refresh de l'affichage de ta form avec un DoEvents avant de l'envoyer à l'impression. En gros, cela donne ça :

Code VB :

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

1
2
3
4
5
6
7
8
9
10
11
12
With Printer
   .Copies=nb
   .Orientation=2
End With
 
MyGraph.AutoRedraw = True
myForm.Refresh
DoEvents
 
myForm.PrintForm
 
Printer.EndDoc

Il me semble que la dernière ligne est nécessaire pour la gestion du nombre de copies.

Je regarde cela tout à l'heure pour te confirmer.

+

Théo