Kopie maat klopt niet

[jeroenrr]

Ik heb via de site van microsoft een bestandje factuur.xls gehaald die ik voor school wil gaan gebruiken. Ik heb alles aangepast naar eigen wens, echter als ik op de knop boeken en printen druk maakt ie zoals het hoort een nieuw excel bestand aan maar het plaatje wat hij maakt is niet helemaal het plaatje zoals ie eigenlijk er uit hoort te zien. De fout is hem er ingeslopten toen ik de factuur met 15 regels heb ingevoegd. echter krijg ik door in de VBA de pixels aan te passen niet de fout en kopieerd ie maar tot de helft van het bestand waardoor het totaal bedrag en btw er niet in staan.

Mijn vraag is dus, hoe maak ik als ik op de knop boeken en afdrukken klik het plaatje aan de onderkant groter zodat het stuk wat er nu niet op staat ook mee kopieerd naar het nieuwe bestand?

Bestand zit er bij.

 

[Gert Bouwmeeste]

Het zit in dit deel (zie rood gemarkeerd)

'Lijnen weg
    ActiveSheet.Unprotect
    Range("D15:H15").Select
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
    Selection.Borders(xlEdgeBottom).LineStyle = xlNone
    ActiveSheet.Protect
    
    'Factuurdeel
    Venster1$ = ActiveWindow.Caption
[COLOR="Red"][B]    Range("B2:N54").Select[/B][/COLOR]    
    Selection.Copy
    Workbooks.Add
    Venster2$ = ActiveWindow.Caption
    ActiveSheet.DropDowns.Add(144, 105.75, 248.25, 15.75).Select
    ActiveSheet.Paste

    Windows(Venster1$).Activate
    Sheets("Factuur").Select

Dat moet je uitbreiden tot B2:N72

 

[jeroenrr]

heel erg bedankt voor de moeite! het werkt