*** IMPRIMER UNE ADODC ***

Question

Salut a tous 
j'utilise ce code pour impimer une colonne d'une table access mais le probleme est ke quand j'imprime la premier ligne n'est pas imprimer c.a.d si g 10 ligne l'impression se fais que pour 9 lignes et la premiere ne s'imprime pas.
comme je peut resoudre ce pb si quelqu'un le sais SVP aidez moi 
et d'avance pour votre aide

Dim A, B
A = AD.Recordset.RecordCount
AD.Recordset.MoveFirst
For B = 0 To A
AD.Recordset.MoveNext
If AD.Recordset.EOF Then
GoTo Fin
End If
Printer.Print AD.Recordset.Fields("Nom")
Next B
Fin:
Printer.EndDoc

plaineR · Answer

Cela ne fonctionne pas car tu fais un movnext avant d'avoir imprimer ta premiere ligne

Si tu fais, c'est plus simple et cela devrait fonctionner  :


AD.Recordset.MoveFirst
Do while not ad.recordset.eof 
Printer.Print AD.Recordset.Fields("Nom")
AD.Recordset.MoveNext
loop
Printer.EndDoc

* IMPRIMER UNE ADODC *

1 réponse

Discussions similaires