Problème impression fomrt + texte 1 feuille ???

Le
LE TROLL
Bonjour,

Venant, sur la même form, j'ai à imprimer
le dessin sur la form (printform), et du texte
dessous (printer.print text2.text), ou dessus

Mais je ne sais pas comment faire, ni si c'est
possible, je fais par exemple (qui ne fonctionne
pas):

printer.print text1.text ; printform
enddoc

Y a-t-il une façon d'imprimer le tout sur la
même feuille papier (heu, je n'ai pas la place
écran de mettre le texte sur la form, évidemment)
???

--
Merci beaucoup, au revoir et à bientôt :o)

Romans, logiciels, email, site personnel
http://irolog.free.fr/joe.htm
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Jacques93
Le #15359051
Bonjour LE TROLL,
LE TROLL a écrit :
Bonjour,

Venant, sur... la même form, j'ai à imprimer
le dessin sur la form (printform), et du texte
dessous (printer.print text2.text), ou dessus...

Mais je ne sais pas comment faire, ni si c'est
possible, je fais par exemple (qui ne fonctionne
pas):

printer.print text1.text ; printform
enddoc

Y a-t-il une façon d'imprimer le tout sur la
même feuille papier (heu, je n'ai pas la place
écran de mettre le texte sur la form, évidemment)
???




Pas sûr d'avoir bien compris. Si tu veux imprimer du texte à la suite de
l'impression de la feuille VB sur la même feuille de papier, il faut
indiquer à quel endroit commencer. Avec PrintForm, par défaut on
commence en début de page. Je n'ai pas vu que ce soit modifiable.

Avec Printer.print, on peut utiliser Printer.CurrentY, pour indiquer à
quel niveau on commence dans la page. Reste à utiliser le même système
de coordonnées. Par exemple, les millimètres :


Private Sub Command1_Click()
Dim i As Integer

Printer.ScaleMode = Me.ScaleMode
' Imprime la feuille VB en haut de page (0, 0)
Me.PrintForm
' Commence l'impression du texte après celle de la feuille
Printer.CurrentY = Me.ScaleHeight
For i = 1 To 10
Printer.Print vbCrLf & i & " : Hello LE TROLL"
Next i
End Sub

Private Sub Form_Load()
Me.AutoRedraw = True
Me.ScaleMode = vbMillimeters
Me.Picture = LoadPicture("C:MyPicture.jpg")
End Sub


Nota : N'ayant pas d'imprimante en ce moment, je ne peux pas tester en
conditions réelles. Avec une imprimante virtuelle CutePDF, ça semble OK.

--

Cordialement,

Jacques.
LE TROLL
Le #15359041
merci :o)

--
Merci beaucoup, au revoir et à bientôt :o)
------
Romans, logiciels, email, site personnel
http://irolog.free.fr/joe.htm
------------------------------------------------------------------------------------
"Jacques93" a écrit dans le
message de news:

| Bonjour LE TROLL,
| LE TROLL a écrit :
| > Bonjour,
| >
| > Venant, sur... la même form, j'ai à
imprimer
| > le dessin sur la form (printform), et du texte
| > dessous (printer.print text2.text), ou
dessus...
| >
| > Mais je ne sais pas comment faire, ni si
c'est
| > possible, je fais par exemple (qui ne
fonctionne
| > pas):
| >
| > printer.print text1.text ; printform
| > enddoc
| >
| > Y a-t-il une façon d'imprimer le tout sur
la
| > même feuille papier (heu, je n'ai pas la place
| > écran de mettre le texte sur la form,
évidemment)
| > ???
| >
|
| Pas sûr d'avoir bien compris. Si tu veux
imprimer du texte à la suite de
| l'impression de la feuille VB sur la même
feuille de papier, il faut
| indiquer à quel endroit commencer. Avec
PrintForm, par défaut on
| commence en début de page. Je n'ai pas vu que ce
soit modifiable.
|
| Avec Printer.print, on peut utiliser
Printer.CurrentY, pour indiquer à
| quel niveau on commence dans la page. Reste à
utiliser le même système
| de coordonnées. Par exemple, les millimètres :
|
|
| Private Sub Command1_Click()
| Dim i As Integer
|
| Printer.ScaleMode = Me.ScaleMode
| ' Imprime la feuille VB en haut de page (0, 0)
| Me.PrintForm
| ' Commence l'impression du texte après celle
de la feuille
| Printer.CurrentY = Me.ScaleHeight
| For i = 1 To 10
| Printer.Print vbCrLf & i & " : Hello LE
TROLL"
| Next i
| End Sub
|
| Private Sub Form_Load()
| Me.AutoRedraw = True
| Me.ScaleMode = vbMillimeters
| Me.Picture = LoadPicture("C:MyPicture.jpg")
| End Sub
|
|
| Nota : N'ayant pas d'imprimante en ce moment, je
ne peux pas tester en
| conditions réelles. Avec une imprimante
virtuelle CutePDF, ça semble OK.
|
| --
|
| Cordialement,
|
| Jacques.
Publicité
Poster une réponse
Anonyme