Avatar billede Klaus W Professor
21. juni 2021 - 12:50

Gem til PDF med antal sider

Hej Excel hjælpere,
Jeg har en VBA-kode jeg bruger til at samle og gemme 3 faneblade med i PDF. Dette duer rigtig godt, i Faneblad ”Bestilling” celle I1 tager Excel det antal sider der er (Kan variere) 
Nu er det at jeg gerne ville have Excel også kunne gøre dette med Faneblad ”Bestilling” celle I1 tager Excel det antal sider der er (Kan variere) 
Nogle der kan hjælpe
Hilsen Klaus W 

Sub Rektangelafrundedehjørner1_Klik()
Dim saveLocation As String
Dim sheetArray As Variant

saveLocation = "C:\Users\k-wit\Documents\Bestilling af proviant\" & Sheets("Indkøbsrekvisition").Range("m1").Value & ".pdf"
sheetArray = Array("Bestilling", "Indkøbsrekvisition", "Ekstra")

'Select specific sheets from workbook, the save all as PDF
Sheets(sheetArray).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
    Filename:=saveLocation, From:=1, To:=Sheets("Bestilling").Range("i1").Value + 2
   
  Sheets("Indkøbsrekvisition").Select
Mail_workbook_Outlook
End Sub
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester





Premium
Langt flere studerende søger ind på it-uddannelser hos KEA: Næste år skal der skæres hundredvis af it-studiepladser
Hos Københavns Erhvervsakademi (KEA) har man oplevet en markant fremgang i antallet af optag på især it-relaterede uddannelser. Samlet set øger KEA optaget med en procent, men allerede fra næste år skal der trods flere ansøgere skæres drastisk ned på grund af en politisk aftale.
Computerworld
Gigantisk kollektivt nedbrud rammer flere internationale hjemmesider
Igen var flere internationale hjemmesider ude af drift. En fejl ramte over 50 af de største internationale websites tordag aften. Se alle detaljer on nedbruddet her.
CIO
Årets CIO 2021: Nu skal Danmarks dygtigste CIO findes - er det dig? Eller kender du en, du vil indstille?
Det er den mest eftertragtede titel for danske it-chefer og CIO'er, der er på spil, når Årets CIO kåres 16. september 2021. Søg selv eller prik til en, som du kender - og læs mere om prisen her.
Job & Karriere
Så meget kan du tjene: Disse stillinger giver den højeste løn i den danske it-branche lige nu
Du skal have ledelsesansvar, hvis du vil helt tops i lønhierakiet i den danske it-branche, viser nye tal. Se hvor meget du kan tjene i de stillinger i it-branchen, der giver den højeste månedsløn lige nu.
White paper
End-to-end Server Security: Hvad er det – og hvordan kan det styrke din forretning?
Hvorfor bør serverbaseret sikkerhed være en kritisk del af din sikkerhedsinfrastruktur – og hvordan sikrer du, at din hardware kan leve op til kravene? Læs mere i dette whitepaper.