djo_tounes
Messages postés5Date d'inscriptionmardi 15 novembre 2005StatutMembreDernière intervention20 novembre 2008
-
18 nov. 2008 à 19:52
jmf0
Messages postés1566Date d'inscriptionmardi 26 décembre 2000StatutMembreDernière intervention 5 avril 2013
-
20 nov. 2008 à 13:12
J'ai mis le code nécessaire pour le nombre de copies pour mon imprimante ( .copies = 2) et cela apparait dans la l'utilitaire de l'imprimante mais ça ne marche pas , l'imprimante ne fait qu'une seule copie
djo_tounes
Messages postés5Date d'inscriptionmardi 15 novembre 2005StatutMembreDernière intervention20 novembre 2008 19 nov. 2008 à 10:34
Oui avec l'ojet printer
et avec n'importe quelle imprimante (Canon pixma 1500, brother )
voila le code:
With CommonDialog1
.Copies = 2
.Orientation = cdlLandscape
.ShowPrinter
dessineType Printer
end withDans l'utilitaire de l'imprimante on aura Nbr de copies 2 ,orientationpaysage
mais l'imprimante ne fait qu'une seule copie et en portrait.
Merci bien
jmf0
Messages postés1566Date d'inscriptionmardi 26 décembre 2000StatutMembreDernière intervention 5 avril 20138 19 nov. 2008 à 14:46
1) le code que tu montres n'est pas celui de l'utilisation de l'objet Printer !
2) on ne voit pas où tu choisis l'imprimante avec ta boite de dialogue ShowPrinter
3) on ne sait pas ce que fait dessineType !
=>>
4) impossible de te répondsre dans te telles conditions !
djo_tounes
Messages postés5Date d'inscriptionmardi 15 novembre 2005StatutMembreDernière intervention20 novembre 2008 20 nov. 2008 à 10:54
Je vous rappelle que j'utilise le vb6 et comme vous voyez dans le code j'utilise un contrôle CommonDialog puis j'indique le nombre de copie etc puis j'affiche l'objet ShowPrinter et j'aurai l'imprimante par défaut comme imprimante que je peut changer ensuite dans l'utilitaire de l'imprimnate.
DessineType c'est un objet dont voici un exemple:
Private Sub dessineType(dest As Object)
'Ceci est un exemple
If Not dest Is Printer Then Cls
dest.Font.NAME = "Courier New"
dest.Font.Size = 14
dest.Font.Bold = True
dest.Print Spc(3); Text1.text
dest.Font.Size = 10
dest.Print ""
dest.Font.Size = 8
dest.Print Spc(15); Label1.Caption
If dest Is Printer Then Printer.EndDoc
End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
jmf0
Messages postés1566Date d'inscriptionmardi 26 décembre 2000StatutMembreDernière intervention 5 avril 20138 20 nov. 2008 à 11:50
Ouais ?
Je te rappelle que l'objet Printer a plusieurs propriétés ...
L'une d'entre elles, par exemple, est la propriété Copies ... (regarde à quoi elle sert, dans ton aide en ligne)