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