Macroknop

[WVE]

Beste allemaal,

Ik ben bezig met een offertemodel, waarbij ik de offerte opmaak in een excelbestand en die dan met een druk op de knop wil omzetten naar een pdf-bestand die als bijlage aan een nieuwe email wordt toegevoegd. Dit wil ik doen aan de hand van een macroknop met de volgende code:

Sub VenA()
c00 = "S:\Transport\Offertes2017" & Sheets(1).Name & Format(Now, "yyyymmddhhmm") & ".pdf"
Sheets(1).ExportAsFixedFormat 0, c00
With CreateObject("Outlook.Application").CreateItem(0)
.to = ""
.Subject = "Offerte"
.Attachments.Add c00
.display '.send
End With
Kill (c00)
End Sub

Het gaat een tijd goed, mijn excel tabblad wordt inderdaad omgezet tot een pdf'je en als bijlage toegevoegd aan een nieuwe email. Echter is dit pdf-bestand niet te openen. De foutmelding komt van Word en geeft aan dat het aantal pagina's te veel is. Ik weet niet hoe ik dit moet oplossen. Het excelbestand staat ingesteld op liggende afdrukstand in plaats van het standaard staande afdrukstand, misschien heeft het hier mee te maken?

Bovendien heb ik een wisselende geadresseerde. Deze verschijnt steeds in hetzelfde hokje (E17), omdat dit het resultaat is van een formule. Kan deze ook automatisch meeveranderen in de mail? Zo stuur ik de mail altijd naar de goede persoon, zonder het handmatig te hoeven invullen.

Ik hoop dat iemand me kan vertellen hoe ik dit moet oplossen, heb verder eigenlijk geen kennis van dit soort codes.

WVE

 

[jkpieterse]

Dat werkblad, waar kom je terecht als je op control+End drukt op je toetsenbord? Is het afdrukbereik wel juist ingesteld?
Verander .to = "" in:

.to = Sheets(1).Range(E17").Value

 

[WVE]

Dat werkblad, waar kom je terecht als je op control+End drukt op je toetsenbord? Is het afdrukbereik wel juist ingesteld?
Verander .to = "" in:

.to = Sheets(1).Range(E17").Value

Als ik op control+end druk, kom ik onderaan het werkblad terecht, op de kruising van van buitenste rij en kolom waar tekst in staat.
Het afdrukbereik staat zo ingesteld dat alles wat ik wil doorsturen er precies binnenvalt, de rest er net buiten.
Als ik (.to = Sheets(1).Range(E17").Value) toepas zonder buitenste haakje openen en haakje sluiten, krijg ik foutmelding 1004: Door de toepassing of door object gedefinieerde fout

 

[WVE]

Als ik op control+end druk, kom ik onderaan het werkblad terecht, op de kruising van van buitenste rij en kolom waar tekst in staat.
Het afdrukbereik staat zo ingesteld dat alles wat ik wil doorsturen er precies binnenvalt, de rest er net buiten.
Als ik (.to = Sheets(1).Range(E17").Value) toepas zonder buitenste haakje openen en haakje sluiten, krijg ik foutmelding 1004: Door de toepassing of door object gedefinieerde fout

.to = Sheets(1).Range(E17").Value
Okee deze heb ik uitgevogeld! E17 moest omsloten worden zoals
.to = Sheets(1).Range("E17").Value

Echter is het nog steeds niet mogelijk het pdf-bestand te openen.

 

[Peter B]

Vervang de volgende regel eens:

Sheets(1).ExportAsFixedFormat 0, c00

door:

Sheets(1).ExportAsFixedFormat Type:=0, Filename:=c00, IgnorePrintAreas:=False

 

[snb]

De foutmelding komt van Word

Bij het openen van een PDF ?

 

[WVE]

Vervang de volgende regel eens:

Sheets(1).ExportAsFixedFormat 0, c00

door:

Sheets(1).ExportAsFixedFormat Type:=0, Filename:=c00, IgnorePrintAreas:=False

Helaas verandert dit niks. Hetzelfde probleem blijft bestaan..

 

[Peter B]

Jammer. Was een redelijk wilde gok

 

[WVE]

Bij het openen van een PDF ?

Ja. Het pdf-bestand wordt normaliter geopend in Word 'alleen lezen'. Nu doet hij echter niks.

 

[Timshel]

Probeer het pdf-bestand eens te openen met adobe acrobat reader. Dat is de aangewezen applicatie.
Het had mij meer verbaasd als openen in word geen problemen zou opleveren.

 

[Peter B]

Wat is de bestandsgrootte van de pdf?

 

[WVE]

Blijkbaar had het met mijn computer te maken, want collega's konden het bestand probleemloos openen.

Bedankt voor de moeite allemaal!

WVE

 

[jkpieterse]

Volgende keer toch een PDF reader installeren zoals sumatraPDF of zo.