printen en mailen als pdf met thunderbird

[VenA]

Je hebt geen range Blad1 gedefinieerd.

 

[loek010]

Beste Edmoor,
Bedankt voor je hulp zover!

Ik heb de range nu naar blad1 gezet, en de code voor het pdf bestand in dezelfde sub gezet als mail.

Wat is er nu nog fout in deze code

 ActiveSheet.Range("Blad1").ExportAsFixedFormat Type:=xlTypePDF, Filename:=PDF

Blad 1 moet het pfd document worden.

Moet zijn :

Sheets("Blad1").ExportAsFixedFormat Type:=xlTypePDF, Filename:=PDF

 

[VenA]

Vanwaar de volledige quote @loek010? De TS wil een range als PDF en niet het volledige blad.

Het probleem is dat de pdf eerst nog gemaakt moet worden aan de hand van het bereik N1 tot AG50

 

[Samsung6713]

Sheets("Blad2").ExportAsFixedFormat Type:=xlTypePDF, Filename:=PDF

Met deze code werkt het nog steeds niet helaas, ook al zou ik het hele tabblad als pdf om willen zetten.

Ik denk dat er niets anders op zit dan het handmatig op te slaan en mailen.

Bedankt voor het meedenken in ieder geval!

 

[edmoor]

Is niet nodig want dat kan volledig automatisch, maar kennelijk begrijp je de aangedragen instructies niet.
Plaats je document nog eens zoals je die nu hebt.

 

[Samsung6713]

Als pdf bijlage aan de mail heb ik nodig Blad2 N1 tot AG50.
Eventueel als dat makkelijker is kan ik dat bereik ook in een nieuw tabblad zetten met alleen die gegevens. (Blad1)

 

[edmoor]

Probeer het zo maar eens:
Bekijk bijlage 15-01.xlsm

 

[Samsung6713]

Fout 53 tijdens uitvoering:
Kan het bestand niet vinden

 

[edmoor]

Hij moet uiteraard wel Thunderbird zelf kunnen vinden.
Heb je wel deze?

C:\Program Files (x86)\Mozilla Thunderbird\Thunderbird.exe

 

[Samsung6713]

De mail wordt nu correct geopend, alle gegevens staan er goed in en de bijlage in pdf zit er ook bij.

Alleen die is 0 bytes...

 

[edmoor]

Werkt hier allemaal prima, dus geen idee zo.
Dit is bij mij de PDF:
Bekijk bijlage Week1klant1.pdf

Kan een foutje van Thunderbird zijn.
Heb je wel even zelf de PDF geopend?

 

[Samsung6713]

Als ik de bestandslocatie opzoek staat daar het pdf document wel en heeft een normale grote.

De mailbijlage heeft ook als naam c:\Users\****\Documents\Week1klant1.pdf

heeft het daar misschien mee te maken?

 

[edmoor]

Open die PDF, zoals ik al zei, dan weet je het.
Thunderbird toont dat fout.

 

[Samsung6713]

Dat is wel apart, als ik het pdf bestand opent krijg ik onderstaand document (4 pagina's)

Ik heb het op een andere pc geprobeerd, en daar heb ik precies hetzelfde.

 

[edmoor]

In #31 kan je de PDF zien zoals deze bij mij wordt aangemaakt.
In de code staat dit:

Range("N1:AG50").ExportAsFixedFormat Type:=xlTypePDF, Filename:=PDF

Dan kan hij dus niks anders in de PDF zetten dan wat in het bereik N1 t/m AG50 staat.

 

[Samsung6713]

De 4 pagina's is opgelost.
Ik had

  Sheets("blad1").ExportAsFixedFormat Type:=xlTypePDF, Filename:=PDF

De foute weergave in de mail bijlage zit dus in thunderbird?

 

[edmoor]

Wat je toont staat niet in het voorbeeld dat ik plaatste.
Je volgt dus instructies niet op en kan ik wel aan de gang blijven.
Dat de foute weergave in Thunderbird zit had ik ook al verteld.