• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Fout 438 bij printen als pdf

Status
Niet open voor verdere reacties.

FS62

Gebruiker
Lid geworden
27 jun 2020
Berichten
21
Op mijn computer met Windows Excel Office 365 werkt deze macro zonder problemen. Mijn klant heeft Windows / Excel 2016 en krijgt de onderstaande foutmelding. Ik kan de oplossing niet vinden. Alvast bedankt. Frank

foutmelding (002).PNG

Code:
Sub ExportkleinAlsPDF()
     ActiveWorkbook.Unprotect 
    Sheets("Voorblad").Visible = True
    Sheets("Voorblad").Calculate
    Sheets("Teambalans 2").Visible = True
    Sheets("TEAMPOTENTIEEL").Select
     ThisWorkbook.Sheets(Array("Voorblad", "Teambalans", "Teambalans 2", _
        "TEAMPOTENTIEEL")).Select
        Calculate
          Dim fileSaveName As Variant
     
     fileSaveName = Application.GetSaveAsFilename( _
        FileFilter:="PDF Files (*.pdf), *.pdf")
    
    If fileSaveName <> False Then
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
            fileSaveName, Quality:=xlQualityStandard, IncludeDocProperties:=True, _
            IgnorePrintAreas:=False, OpenAfterPublish:=True
    End If
Sheets("Voorblad").Visible = False
Sheets("Teambalans 2").Visible = False
ActiveWorkbook.Protect 
Sheets("Menu").Select
End Sub
 
En op welke regel treedt die fout op?
 
Weet helaas niet op welke regel. De klant zit op afstand en ik heb zelf geen computer meer met Excel 2016.
 
Ik zie aan de code niets dat dat probleem kan veroorzaken.
Dus via Teamviewer even bij je klant mee kijken, project unlocken en testen.
 
Zie onderstaande link.
https://wellsr.com/vba/2016/outlook/prevent-runtime-error-438-in-Outlook-Application-FileDialog/

Of probeer dit eens.

Code:
   With Application.FileDialog(msoFileDialogSaveAs) 'of 2
        .AllowMultiSelect = False
        .FilterIndex = 25
      If .Show Then fileSaveName = .SelectedItems(1)
    End With
     
    If fileSaveName <> "" Then
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
            fileSaveName, Quality:=xlQualityStandard, IncludeDocProperties:=True, _
            IgnorePrintAreas:=False, OpenAfterPublish:=True
    End If
 
Opgelost

Bedankt voor de info en hulp. Probleem lag uiteindelijk in een van de pagina's die geprint werd. Hierin zat een VBA die vooraf een tabel sorteert. In de opgenomen macro (Office365)stond .Add2. Deze werkt niet bij eerdere versies (klant heeft Excel 2016). Door het wijzigen van .Add2 naar .Add werkt alles weer naar behoren.
 
Dan heb je ons de verkeerde code doorgegeven.
Maar goed, het is opgelost.

Je hebt ook geen sortfields.add nodig.

sorteert hier op de tweede kolom (2).
Code:
with sheets("jebladnaamhier")
   .listobjects(1).range.sort .range("b1"),,,,,,,1
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan