bestand wordt niet opgeslagen, wel via handmatige foutopsporing(debuggen)

[ADvH]

Goedemiddag,

Onderstaande code werkt wel als met F8 de stappen van de macro handmatig doorloop, maar als ik de macro via alt-F8 'automatisch' laat draaien worden de wijzigingen via de call OHW_Print niet opgeslagen. Ik heb al een pause ingebakken gehad, maar ook dat is de oplossing niet. (zowel de excel als de pdf worden niet opgeslagen)

Wat doe ik fout? Moet ik de opmaak uit de call in dezelfde sub zetten?

    Call OHW_Print      'maakt de opmaak gereed voor printen
    ActiveWorkbook.SaveAs Filename:=pad & eNaam, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pad & pNaam, _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=False

Alvast hartelijk dank,

Albert

 

[OctaFish]

‘Call’ is al jaren nergens voor nodig, maar afgezien daarvan: als het probleem vermoedelijk in de procedure OHW_Print zit, waarom post je die dan niet?

 

[ADvH]

Beste,

Omdat ie het handmatig wel doet, dus daar lijkt niets mee mis te zijn. hierbij de call sub:

Sub OHW_Print()
    
    Application.PrintCommunication = False
    With ActiveSheet.PageSetup
        .PrintTitleRows = "$1:$3"
        .PrintTitleColumns = ""
        .CenterHeader = ""
        .PrintArea = "B1:M" & Range("G100000").End(xlUp).Row
        .LeftMargin = Application.InchesToPoints(0.25)
        .RightMargin = Application.InchesToPoints(0.25)
        .TopMargin = Application.InchesToPoints(0.75)
        .BottomMargin = Application.InchesToPoints(0.75)
        .HeaderMargin = Application.InchesToPoints(0.3)
        .FooterMargin = Application.InchesToPoints(0.3)
        .Orientation = xlLandscape
        .FitToPagesWide = 1
        .LeftHeaderPicture.Filename = "P:\Montage Techniek\Tegelwerken\Onder Handen Werken afsluiten\BC_LOGO.jpg"
        .LeftHeader = "&G"
    End With
    
End Sub

Groeten Albert

 

[snb]

Vervang alle 'activesheet' door de codename van het werkblad.
En 'activeworkbook' door 'Thisworkbook'.
En vertel immer waar de macro is opgeslagen.