Impression

Bonsoir à tous

voici le code que j'utilise pour imprimer , le text prend le quart d'une feuille comment faire pour imprimer d'autres texte dessous. en fait je voudrai que la feuille s'arrete après la dernière ligne après la première edition



Private Sub Imprimer_Click()
Dim ListItemResultat As ListItem
Dim No_Note_G, Nom, Nbre_Matin, Nbre_Soir, Nbre_MS, Cout_Matin, Cout_Soir, Cout_MS, Cout_Total
Dim Date_Debut, Date_Fin
Dim Message, Titre, Entete, Entete1 As String
Dim Hauteur As Integer
Dim X As Long
Dim X1
Dim X2



'Préparation de la commande
CmdNote.CommandText = "select * from Note_Garderie where NoNote ='" & Trim(No_Note.Text) & "'"

'Exécution de la commande
RstNote.Requery

If (RstNote.RecordCount <> 0) Then

No_Note_G = RstNote!NoNote
Nom = RstNote!Payeur
Date_Debut = RstNote!DateDebut
Date_Fin = RstNote!DateFin
Nbre_Matin = Val(RstNote!NbreMatin) + Val(RstNote!NbreSoir)
Nbre_MS = RstNote!NbreMS
Cout_Matin = RstNote!CoutMatin + RstNote!CoutSoir
Cout_MS = RstNote!coutMS
Cout_Total = RstNote!CoutTotal
End If

Printer.PrintQuality = 60
Printer.Orientation = vbPRORPortrait
Printer.FontName = "Arial"
Printer.FontBold = True
Printer.FontSize = 14

Printer.Print Page_Maj_Parametre.Nom & " " & Page_Maj_Parametre.Code_Postal & " " & Page_Maj_Parametre.Ville

Printer.Print ""

Printer.Print "Note de Garderie N° " & No_Note_G & " " & "du " & Date_Debut & " " & "au " & Date_Fin

Printer.Print ""

Printer.Print Nom

Printer.Print ""

Printer.Print " Nombre de Matin ou Soir : " & Format(Nbre_Matin, "##,##0") & " à " & Format(RstTarif!Matin, "##,##0.00 ¤") & " = " & Format(Cout_Matin, "##,##0.00 ¤")

Printer.Print ""

Printer.Print " Nombre de Matin & Soir : " & Format(Nbre_MS, "##,##0") & " à " & Format(RstTarif!Matin_Soir, "##,##0.00 ¤") & " = " & Format(Cout_MS, "##,##0.00 ¤")

Printer.Print " _____________"

Printer.Print " Somme à payer = " & Format(Cout_Total, "##,##0.00 ¤")

Printer.Print ""

Printer.Print "Nous vous rappelons que le règlement est à effectuer le plus rapidement possible,"
Printer.Print "et de préférence par chèque, à l'ordre de : *********************"

Printer.Line (1, 4550)-(15000, 4550) 'Ligne du bas

Printer.EndDoc

End Sub

merci pour vos réponses

Salut,
Cela manque quelques précisions.
De toute façon aprés un EndDoc, la feuille sort.
Tu pourrais préciser de quel type d'imprimante tu disposes.
- Si c'est une matricielle, tu paramétres (dans l'imprimante) la hauteur de page (1/4 d'un A4).
- Si c'est une Laser il faut que tu fasse ton EndDoc aprés 4 tickets.

@+