Bij aanmaken pdf's soms vastlopen, not responding

Status
Niet open voor verdere reacties.
B

Boboes

Gebruiker
Lid geworden
5 nov 2016
Berichten
45
Onderstaande code maakt een n-aantal pdf’s aan (minimaal 1, maximaal 6) van dezelfde sheet maar met steeds een andere naam. De uitvoering gaat soms wel goed en snel maar soms ook niet en blijft de procedure hangen: not responding. Ik had al DoEvents toegevoegd binnen de loop maar dat helpt dus ook niet helemaal… Wat is er fout?
Code: 
Sub MaakPDFs()

    Dim strPath As String
    Dim myString As String
    Dim newString As String
    Dim strName As String
    Dim rJaren As Range
    Dim j As Integer
    Dim ws As Worksheet
    
    Application.ScreenUpdating = False
    
    If Range("pdfakkoord") = "nok" Then
        MsgBox "Gegevens zijn niet compleet." & vbNewLine & _
               "Vul aan en probeer opnieuw..."
        Exit Sub
    End If
    
    strPath = ActiveWorkbook.Path
    If strPath = "" Then
        strPath = Application.DefaultFilePath
    End If
    strPath = strPath & "\"
    
    Set ws = Sheets("Invoer")
    Set rJaren = Range("jaren_meenemen")
    j = Range("regels_nodig").Value
    
    For j = 1 To j Step 1
        myString = rJaren(j, 1).Value
        Range("pdfnaam").Value = myString & "_" & Range("voorstelnaam")
        strName = Range("pdfnaam").Value
        newString = Replace(strName, ".", "")
        strPathFile = strPath & newString
        
        ws.ExportAsFixedFormat _
            Type:=xlTypePDF, _
            FileName:=strPathFile, _
            Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, _
            IgnorePrintAreas:=False, _
            OpenAfterPublish:=False
        DoEvents
    Next j
    
    MsgBox "Klaar!"
    Application.ScreenUpdating = True
        
End Sub
 
Als je de fout kan reproduceren, volg de code dan in debug mode (F8) en let goed op of het pad en de bestandsnaam wel kloppen.
 
Beste edmoor. Ik merk nu dat de code op mijn eigen laptop/thuisnetwerk goed en snel werkt (paar seconden voor meerdere pdf's) maar als ik het programma op het netwerk van mijn werkgever uitvoer dat het dan lang niet altijd goed gaat. Daar duurt het opslaan van de pdf's sowieso veel langer en zie ik het opslaanschermpje steeds secondelang in beeld (die zie ik op thuislaptop helemaal niet). Met debuggen (F8) gaat het altijd wel goed. Het lijkt erop dat het lange opslaan er iets mee te maken heeft. De code zelf lijkt me wel oké, toch? Iets aan te doen?
 
Wellicht dat het dan te maken heeft met de snelheid van jullie netwerk.
 
Snelheid waarschijnlijk niet omdat het netwerk normaal zeer snel is. Het zou mogelijk van tijdelijke aard kunnen zijn, ik probeer het daarom de komende dagen nog een paar keer.... :). Bedankt in ieder geval voor het meedenken!
 
Code: 
For j = 1 To j Step 1
?

Code: 
Sub test()
  j = 10
  For j = 1 To j Step 1
    MsgBox j
  Next j
End Sub

Met al die benoemde bereiken is er zonder bestand niet veel van te zeggen.

Volgens mij kan de hele code in een paar regels ipv het hele gebeuren wat jij er van gemaakt hebt.
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan