Gijsbert1960
Gebruiker
- Lid geworden
- 5 jul 2017
- Berichten
- 135
Hallo allemaal
Ik heb in mijn bestand een aantal bladen die we uitprinten en als PDF opslaan in een map om later in een bestand op de server van het bedrijf kunnen uploaden. het zijn dezelfde formule's alleen bij 1 krijg ik wel uitgeprint maar niet opgeslagen. De volgende regel wordt geel .ExportAsFixedFormat xlTypePDF, locatie & naam 'opslaan
M vr gr
Gijs
Ik heb in mijn bestand een aantal bladen die we uitprinten en als PDF opslaan in een map om later in een bestand op de server van het bedrijf kunnen uploaden. het zijn dezelfde formule's alleen bij 1 krijg ik wel uitgeprint maar niet opgeslagen. De volgende regel wordt geel .ExportAsFixedFormat xlTypePDF, locatie & naam 'opslaan
Code:
With Sheets("3 mnd opr tr") 'of specificeer de*sheet*als*Sheets("Factuur") ofzo
locatie = "C:\Users\Gebruiker\Desktop\Trainingen\" 'of "C:\Documents and Settings\Documenten\.."
naam = .Range("A8") & " " & .Range("E10") 'de cel met de bestandsnaam
.PrintOut 'uitprinten
.ExportAsFixedFormat xlTypePDF, locatie & naam 'opslaan
End With
M vr gr
Gijs