Autres impression pdf excel 2003

gh4 · 5 Novembre 2022

Bonjour à toutes et tous,
Je suis sur excel 2003. mon prog tourne normalement.
lorsque je demande une impression au format pdf avec n'importe quelle imprimante pdf la page s'imprime bien.
Application.Dialogs(xlDialogPrint).Show
mais après l'impression cela ralentit une autre de mes macros lorsque je la sollicite. je suis obligé de fermer le classeur et de le ré-ouvrir pour que mes macros
redeviennent avec une rapidité normale.
ce ralentissement vient uniquement du fait que j'imprime en pdf.

auriez vous une solution?
d'avance merci
cdt

kiki29 · 6 Novembre 2022

Salut, à tenter ? ici cela fonctionne : Warum ? ( W10 / imprimante par défaut : Acrobat PDF / Excel 2003 ). Pour la macro "masquer ligne" c'était juste une réaction "épidermique" face à un code inbuvable.

VB:

Sub test_04()
    With Feuil23
        .DisplayPageBreaks = False
        ' La procédure de mise en page/impression
        test_pour_Excel2003
        .DisplayPageBreaks = False
    End With
End Sub

VB:

Option Explicit

Private Sub CommandButton1_Click()
Dim i As Long, LastRow As Long
Dim Lign As Long, colon As Long

    Application.ScreenUpdating = False

    LastRow = Feuil23.Range("B" & Rows.Count).End(xlUp).Row

    Lign = 3
    colon = 2

    For i = LastRow To Lign Step -1
        If Feuil23.Cells(i, colon) = "C" Then...

Staple1600 · 5 Novembre 2022

Bonsoir @gh4, le fil

Sans voir ton code VBA (celui qui imprime en VBA déjà), difficile d'en dire plus, non ?

gh4 · 5 Novembre 2022

Bonsoir Staple1600,
on en avait deja parler y'a en moment,
quand je croyais que c'etait le fait des copier coller qui ralentissait les macros mais elle ne ralentissent que si et seulement si j'imprime en pdf. si je zappe l'impression pdf tout se passe normalement et je n'ai aucun ralentissement

Staple1600 · 5 Novembre 2022

Re

@gh4
Application.Dialogs(xlDialogPrint).Show
Tu parles bien de VBA, non ?

Donc sans voir comment est rédigé ton code VBA, difficile de faire des tests et de t'en dire plus.

gh4 · 6 Novembre 2022

ci joint le fichier test avec ce que vous m'aviez préconisé il y a un petit moment
avant de lancer imprim regardez la macro" masquer les lignes" a quelle vitesse elle s’exécute
ensuite lancer la macro" imprim " puis après validation du pdf la macro "masquer les lignes" s’exécute avec une grande lenteur.
j'ai essayer d'imprimer en pdf en dehors de la macro mais le résultat est le même. faut refermer le programme pour retrouver une vitesse normale de la macro "masquer les lignes".
si l'on zappe l'impression la vitesse reste normale.
après avoir lu plusieurs choses sur le net il me semble qu'il y a un problème excel 2003 avec l'impression pdf en vba mais je ne trouve pas de solution pour le résoudre

gh4 · 6 Novembre 2022

bonjour,
merci mais le probleme ne vient pas de la macro "masquer ligne" elle fonctionne correctement si il n'y a pas eu imprim pdf avant.

kiki29 · 6 Novembre 2022

Salut, à tenter ? ici cela fonctionne : Warum ? ( W10 / imprimante par défaut : Acrobat PDF / Excel 2003 ). Pour la macro "masquer ligne" c'était juste une réaction "épidermique" face à un code inbuvable.

VB:

Sub test_04()
    With Feuil23
        .DisplayPageBreaks = False
        ' La procédure de mise en page/impression
        test_pour_Excel2003
        .DisplayPageBreaks = False
    End With
End Sub

VB:

Option Explicit

Private Sub CommandButton1_Click()
Dim i As Long, LastRow As Long
Dim Lign As Long, colon As Long

    Application.ScreenUpdating = False

    LastRow = Feuil23.Range("B" & Rows.Count).End(xlUp).Row

    Lign = 3
    colon = 2

    For i = LastRow To Lign Step -1
        If Feuil23.Cells(i, colon) = "C" Then
            Feuil23.Rows(i).EntireRow.Hidden = True
        End If
    Next i

    Feuil23.Columns("A:B").EntireColumn.Hidden = True
    Feuil23.Columns("G:G").EntireColumn.Hidden = True

    Feuil23.Cells(4, 11).Select
    Unload Me
    Application.ScreenUpdating = True
End Sub

gh4 · 6 Novembre 2022

Merci beaucoup Kiki29 je croyais mon cas désespéré
comme quoi une petite phrase peu tout changer
.DisplayPageBreaks = False grâce à ça plus de ralentissement tout marche impeccablement
encore merci et bonne soirée

Autres impression pdf excel 2003

gh4

XLDnaute Occasionnel

kiki29

Staple1600

XLDnaute Barbatruc

gh4

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

gh4

XLDnaute Occasionnel

Pièces jointes

gh4

XLDnaute Occasionnel

kiki29

XLDnaute Barbatruc

gh4

XLDnaute Occasionnel

Discussions similaires