Afdrukgebeid toevoegen aan Macro

[Erc]

Hallo

Ik heb een Macro gemaakt om een Excel-sheet te converteren naar een pdf-bestand.

De Macro werkt, het probleem is alleen dat ook alle knoppen worden bewaard op de tweede pagina. Hoe kan ik het afdrukgebied toevoegen aan de Macro. Ik heb van alles geprobeerd maar kreeg telkens een foutmelding.

Zo ziet de code er nu uit. Wat moet ik toevoegen zodat enkel de eerste pagina (A1:H36) bewaard kan worden als pdf.

Sub Safeaspdf()

Dim Factuurnummer As Long
Dim Klantnaam As String
Dim amt As Currency
Dim dt_issue As Date
Dim term As Byte
Dim nextrec As Range
Dim path As String
Dim fname As String

          
path = "C:\Users\lucg6596" 'your path here
Factuurnummer = Range("B11")
Klantnaam = Range("G3")
fname = Factuurnummer & " - " & Klantnaam

ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
IgnorePrintAreas:=False, _
Filename:=path & fname

Alvast bedankt!

 

[edmoor]

In plaats van Activesheet kan je gewoon een range opgeven.
Ook kan je het attribuut PrintObject van die knoppen op False zetten.

 

[Erc]

Sorry, maar ik heb echt geen idee over hoe ik eraan moet beginnen.
Simpele macros maken en kleine aanpassingen doen lukt nog net, maar aanpassingen in de code brengen en werken met attributen gaat boven mijn petje. Is er reeds een bestaande topic waar u mij naar kan doorverwijzen?

Alvast bedankt!

Groeten
Ercan

 

[edmoor]

Plaats een voorbeeld van je document.

 

[Erc]

Hieronder kan u mijn document terugvinden.

 

[edmoor]

Maak er dit van:

Sheets("Factuur").Range("A1:H36").ExportAsFixedFormat 0, path & fname

 

[Erc]

Gelukt, hartelijk dank! Als ik de macro toewijs aan de knop, krijg ik telkens een foutbericht over deze rij. Mag ik die rij nu niet weglaten, nu de code is aangepast?

 

[edmoor]

Die regel heeft niets te maken met de wijziging voor het maken van een PDF.

Tip:
Als je zegt een foutmelding te krijgen, vertel deze er dan altijd bij.

 

[Erc]

Ok, sorry, moet ik ervoor dan een nieuwe topic aanmaken?

 

[edmoor]

Nee hoor, dat is niet nodig.
Dat kan je gewoon hier plaatsen.

 

[Erc]

Dit is de melding die ik krijg als ik klik op de pdf-knop.



Als ik klik op 'foutopsporing', krijg ik dit te zien. De rij wordt gemarkeerd in een gele kleur.

 

[edmoor]

Leg uit wat je daar probeert te doen, want die code klopt maar weinig van.

 

[Erc]

Ik heb de geel gemarkeerde code verwijderd van mijn macro en nu werkt alles wel goed. Bedankt voor al uw antwoorden en hulp!