Hoi,
Voor het maken van facturen maak ik al geruime tijd gebruik van factuurprogramma factuur5.xlsm
Op mijn oude laptop gaf dit nooit problemen. In eerste instantie op mijn nieuwe laptop ook niet. Na een aantal facturen kwam er echter een foutmelding tijdens het uitvoeren van de macro die de factuur genereert.
Na van alles geprobeerd te hebben heb ikexcel opnieuw geinstalleerd. Na het maken van een factuur waarbij de macro werkte, zit ik nu weer met hetzelfde probleem.
Na het uitvoeren van de macro krijg ik geen factuur te zien maar de volgende melding: Fout 2147024809 (80070057) tijdens uitvoering: Het item met de opgegeven naam is niet gevonden.
Wanneer ik dan foutopsporing selecteer krijg ik in een overzicht één geel gemarkeerde regel te zien. Ik vermoed dat het om het "item" gaat wat daar wordt genoemd.
Een stukje uit de tekst:
'Afmetingen van kopie aanpassen
Ik vermoed dat "picture 2" niet wordt gevonden.
Weet iemand of dit klopt, waarom dit zo is en of ik dit op kan lossen.
Voorlopig maak ik de facturen nog maar even op mijn oude laptop maar een oplossing zou zeer welkom zijn.
Gr. Pieter
Voor het maken van facturen maak ik al geruime tijd gebruik van factuurprogramma factuur5.xlsm
Op mijn oude laptop gaf dit nooit problemen. In eerste instantie op mijn nieuwe laptop ook niet. Na een aantal facturen kwam er echter een foutmelding tijdens het uitvoeren van de macro die de factuur genereert.
Na van alles geprobeerd te hebben heb ikexcel opnieuw geinstalleerd. Na het maken van een factuur waarbij de macro werkte, zit ik nu weer met hetzelfde probleem.
Na het uitvoeren van de macro krijg ik geen factuur te zien maar de volgende melding: Fout 2147024809 (80070057) tijdens uitvoering: Het item met de opgegeven naam is niet gevonden.
Wanneer ik dan foutopsporing selecteer krijg ik in een overzicht één geel gemarkeerde regel te zien. Ik vermoed dat het om het "item" gaat wat daar wordt genoemd.
Een stukje uit de tekst:
'Afmetingen van kopie aanpassen
Code:
With ActiveSheet.PageSetup
.LeftMargin = Application.InchesToPoints(0.4)
.RightMargin = Application.InchesToPoints(0.4)
.TopMargin = Application.InchesToPoints(0.4)
.BottomMargin = Application.InchesToPoints(0.4)
End With
ActiveSheet.Shapes("Picture 2").Select
Selection.ShapeRange.LockAspectRatio = msoTrue
'Selection.ShapeRange.Height = 500
Selection.ShapeRange.Width = 480
DoEvents
'Kopiebestand opslaan
On Error GoTo FoutBijOpslaan
If Bestandsnaam$ > "" Then ActiveWorkbook.SaveAs Bestandsnaam$
On Error GoTo 0
Weet iemand of dit klopt, waarom dit zo is en of ik dit op kan lossen.
Voorlopig maak ik de facturen nog maar even op mijn oude laptop maar een oplossing zou zeer welkom zijn.
Gr. Pieter
Laatst bewerkt door een moderator: