Bonjour, à tous,

j'essaie d'imprimer des étiquettes en utilisant VB.net et Crystal Report. Mon problème se situe lors de l'impression de plusieurs étiquettes.

Si je demande l'impression de 3 étiquettes, il imprimera 3 fois la première étiquette. En installant un "aperçu avant impression" via Crystalreport viewer, je visualise bien mes 3 étiquettes. Mais en lançant l'impression par cet aperçu, j'obtiens toujours 3 fois la première étiquette.

Si quelqu'un aurait une piste où chercher, merci d'avance, voici le code utilisé.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
        Dim tableau_Gal As dstEtiquette.DataTableGalDataTable = dataset_impression.Tables("DataTableGal")
        Dim rapport_Gal As New rptGal
        Dim Data_a_imprimer As DataTable
        Dim vue As DataView
 
            vue = New DataView(tableau_Gal)
            For i = 1 To nb_Etiquettes
                'Remplissage des champs pour chaque étiquette'
                ...
                rowimpressionGal("Rex") = num_OF & i.ToString
                rowimpressionGal("CBRex") = Outil.Code128("S" & num_OF & i.ToString)
                tableau_Gal.Rows.Add(rowimpressionGal)
            Next
            'Impression'
            Data_a_imprimer = vue.ToTable
            rapport_Gal.SetDataSource(Data_a_imprimer)
            rapport_Gal.PrintOptions.PrinterName = imprimante
            rapport_Gal.PrintToPrinter(1, False, 0, 0)
            vue.Dispose()
            tableau_Gal.Clear()
            vue = Nothing