Private Sub print_Click() Dim acApp As Access.Application Set acApp = New Access.Application 'Dim StrSQL As String acApp.OpenCurrentDatabase "C:\dernier domino\dominoVB\domino sport.MDB" acApp.Visible = false acApp.DoCmd.OpenReport "Total des ventes par Clients", acViewnormal 'imprime sans afficher le preview Set acApp = Nothing End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question