Re : Imprimer l'ensemble d'une base de données
re,
Mon idée de me servir d'un UsefForm "temporaire" est une vraie fausse bonne idée. C'est impeccable comme rendu visuel mais ce n'est guère économique car c'est une feuille de papier par ligne traitée.
Voici le code d'impression que j'utilise pour les UserForm :
Private Sub Cmb_Imprimer_Click()
Dim Ws As Worksheet
keybd_event vbKeySnapshot, 1, 0&, 0&
DoEvents
Set Ws = Sheets.Add
Ws.PageSetup.Orientation = xlLandscape
Ws.Paste
With Ws
.PageSetup.CenterHorizontally = True
.PageSetup.CenterVertically = True
.PrintOut
Application.DisplayAlerts = False
.Delete
Application.DisplayAlerts = True
End With
End Sub
Il est parfait pour un petit nombre d'impressions mais là, avec autant, c'est galère
Faut que je trouve autre chose
Quelqu'un aurait-il une idée