Discussion :

[KGUTBM]

Bonjour,

j'ai créé un planning sous excel en vba avec remplissage par userform.
Je désire imprimer une zone de sélection en vba en ayant auparavant l'apercu avant impression. Voici mon code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub CommandButton3_Click()
 
Dim ws As Worksheet
 
Set ws = ThisWorkbook.Sheets("Schedule")
X = ws.Range("A65").End(xlUp).Row
 
ws.PageSetup.PrintArea = Range("A10", Cells(X, 3)).Address
ws.PrintPreview
ws.PageSetup.PrintArea = ""
 
End Sub

A chaque fois que j'imprime ca me ralentit tout le reste, tout se fait a vitesse d'escagot et si je referme le fichier et que je le réouvre ca travaille a bonne vitesse. Mon code serait-il disons "mal fermé" ou autre... Pouvez-vous m'éclaircir.

Merci.

[zazaraignée]

Et si tu ajoutes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DoEvents

avant la ligne qui lance l'impression... ?

[KGUTBM]

Salut,
non ca fonctionne pas...
C'est vraiment bizarre.. ca ralentit le code vraiment beaucoup...

[kiki29]

Salut, pour accélérer les choses voir ExecuteExcel4Macro et PAGE.SETUP, à adapter à ton contexte

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Sub Tst()
    ExecuteExcel4Macro "PAGE.SETUP(" & Chr(34) & "" & Chr(34) & "," & Chr(34) & Chr(34) & _
    ",.15748031496063,.0118110236220472,.78740157480315,.78740157480315,FALSE,TRUE,TRUE,FALSE,1,,100,,1,,,,,,)"
End Sub