petiflamand
Messages postés675Date d'inscriptionsamedi 31 mai 2003StatutMembreDernière intervention26 mai 2013
-
15 août 2006 à 09:24
cs_DARKSIDIOUS
Messages postés15814Date d'inscriptionjeudi 8 août 2002StatutMembreDernière intervention 4 mars 2013
-
15 août 2006 à 17:03
Bonjour ,
je fait des factures avec mon programme realiser en vb6 , je voudrais avoir une copie sur mon pc
y a t-il un moyen pour que quand je fait mon Printer.EndDoc il me face aussi une image en jpeg ou autre format .
Ou avez vous une autre solution
petiflamand
Messages postés675Date d'inscriptionsamedi 31 mai 2003StatutMembreDernière intervention26 mai 20131 15 août 2006 à 09:49
Bonjour , DARKSIDIOUS
C'est pas une image que je veux imprimer,
je veux imprimer mon texte sur une page A4 on vas dire et qu'il me face une copie
en image .
si je fait
Printer.print " toto est a l'ordinateur"
Printer.print " toto est a l'ordinateur"
Printer.print " toto est a l'ordinateur"
Printer.print " toto est a l'ordinateur"
Printer.print " toto est a l'ordinateur"
printer.EndDoc
il me sort sa sur mon imprimante ( sa c'est fait)
mais je voudrais une copie end format jpg ou autre
Merci a toi
cs_DARKSIDIOUS
Messages postés15814Date d'inscriptionjeudi 8 août 2002StatutMembreDernière intervention 4 mars 2013130 15 août 2006 à 10:23
As-tu essayé ce que je t'ai donné ?
Sinon, avec :
Dim oCapture As stdPicture
Printer.PaintPicture(oPicture, 0, 0)
SavePicture(oPicture, "c:\test.bmp")
Si cela ne marche pas, il faudra passer par les API Windows pour récupèrer l'image du DC de l'imprimante, un peu plus long à faire...
Il faut savoir que l'imprimante, tout comme un picturebox ou autre contrôle graphique travaille sur des images et non du texte. Donc la propriété Picture de l'imprimante doit (en théorie) contenir les textes que tu lui dit d'imprimer).
petiflamand
Messages postés675Date d'inscriptionsamedi 31 mai 2003StatutMembreDernière intervention26 mai 20131 15 août 2006 à 13:03
Voici une partie
Printer.FontSize = 9
Printer.CurrentX = 20
Printer.CurrentY = 265
Printer.Print "Conditions de ventes:"
Printer.FontSize = 7
Printer.CurrentX = 5
Printer.Print "Toutes les factures et toutes fournitures non contestées endéans les 8 jours , sont censées être acceptées par le client. Nos factures sont payables au grand comptant. "
Printer.CurrentX = 5
Printer.Print "En cas de retard de paiement, il sera dû de plein droit, automatiquement et sans aucune mise en demeure."
Printer.CurrentX = 5
Printer.Print "Une indemnité forfaitaire valant cause pénale d'un montant de 12% avec un minimum de 40?. En cas de litige, les tribunaux de namur sont seuls compétents."
'==========acompte verser============
'====================================
If facturation.Text27 <> "" Then
Printer.Line (63, 248)-(190, 237), vbBlack, B
Printer.CurrentX = 70
Printer.CurrentY = 240
sglNombre = Format(Label6, "####0.00")
ff = sglNombre
sglNombre = facturation.Text27
cs_DARKSIDIOUS
Messages postés15814Date d'inscriptionjeudi 8 août 2002StatutMembreDernière intervention 4 mars 2013130 15 août 2006 à 17:03
Autant pour moi : le paintpicture ne marche que dans un sens : vers l'imprimante.
Par contre, ce qui est bizarre, c'est que cà à l'air d'être pareil pour le DC ! Avec des bitblt, je n'obtient pas l'image du DC de l'imprimante !
A ce moment là, la solution passe par un picturebox : fait une fonction qui prend en argument un object correspondant soit à un objet Printer, soit à un objet PictureBox, ainsi tu pourra imprimer sur l'imprimante, puis dans un picturebox que tu pourras sauvegarder par la suite dans un format image.