Print side | Luk vindue

Gem faktura i PDF med nyt faktura nr.

Udskrevet fra: Dansk Regneark Forum
Kategori: Hjælp til regneark.
Forum navn: Makro og VBA
Forum beskrivelse: Hjælp til Makroer og VBA-programmering
Web-adresse: https://forum.excel-regneark.dk/forum_posts.asp?TID=1438
Udskrevet den: 01.Nov.2024 kl. 06:27


Emne: Gem faktura i PDF med nyt faktura nr.
Besked fra: DennisDalgaard
Emne: Gem faktura i PDF med nyt faktura nr.
Posteringsdato: 11.Nov.2013 kl. 12:37
Hej alle!
 
Jeg sidder her og forsøger at lave mig en faktura, som automatisk kan gemme fakturaer med fortløbende nummer. Jeg fundet en ældre tråd herinde hvor der var beskrevet hvordan det skulle gøres. Desværre kan jeg bare ikke få det til at fungere med min egen faktura, i Excel 2010.
 
Udover at gemme med fortløbende nummer, vil jeg høre om det er muligt at gemme i PDF format?
 
Link til tråd: https://forum.excel-regneark.dk/fakturanummer_topic354. - https://forum.excel-regneark.dk/fakturanummer_topic354.html
Link til min faktura: https://www.drop.com/s/afxfvzz9xck500w/Faktura%201.xlsx - https://www.dropbox.com/s/afxfvzz9xck500w/Faktura%201.xlsx
 
Nogle som kan hjælpe?
 
Med venlig hilsen
Dennis Andersen


Svar:
Besked fra: DennisDalgaard
Posteringsdato: 21.Nov.2013 kl. 10:13
Slet ingen som kan hjælpe? Eller som har en anden idé til at gemme fakturaer?

Besked fra: Bjarnehansen
Posteringsdato: 21.Nov.2013 kl. 14:07
hej linket til din faktura virker ikke mere ....

-------------
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.
Med venlig hilsen - Bjarne Hansen - Microsoft 365 DK

Besked fra: DennisDalgaard
Posteringsdato: 21.Nov.2013 kl. 14:23
Ups, undskyld.
 
Jeg er kommet så langt, at den kan gemme som Excel fil. Nu vil jeg bare gerne have den til at gemme som PDF.
 
Her er et link: https://www.dropbox.com/s/ngxserpbw9xnwkz/Faktura%20RF.xlsm" rel="nofollow - https://www.dropbox.com/s/ngxserpbw9xnwkz/Faktura%20RF.xlsm

Besked fra: Skemalægger
Posteringsdato: 23.Nov.2013 kl. 20:04
I 2010 kan du da vælge at gemme filen som PDF format. Sørg for at have sat den op i "Vis udskrift", så den passer med 1 side (Tilpas til 1 side i bredde, 1 side i højde). Under gemmenuen mener jeg, du kan vælge PDF format - det duer i 2007.

Alternativt installer det gratis program CutePDF, der så kommer frem på din printeroversigt. "print" hertil så gemmer den i PDF,

Eller - ligesom du gemmer faktura løbenummer, kan du gemme fakturaen i PDF format - Er det ikke det, der sker i din makro ?

Besked fra: DennisDalgaard
Posteringsdato: 24.Nov.2013 kl. 11:26
Jeg vil gerne have den til at gemme som PDF når jeg trykker på den hjemmelavet knap i Excel. Det gør den også, men dokumentet kan ikke læses når man åbner det.

Hvis jeg derimod ændrer makroen til at gemme som .xlsm, så kan jeg fint læse Excel dokumentet.

Besked fra: DKBjorn
Posteringsdato: 06.Dec.2013 kl. 14:47
Er der kommet en løsning.....?

Besked fra: DennisDalgaard
Posteringsdato: 16.Dec.2013 kl. 22:19
Jeg har stadig ikke fundet en løsning desværre

Besked fra: excelent
Posteringsdato: 16.Dec.2013 kl. 23:11

Sub Fakturanummer()
'Denne funktion genererer fortløbende fakturanumre i Excel
'2011 Allan Thustrup Mortensen

NummerPlacering = Range("D5").Address 'Her står fakturanummeret på din faktura

FakturaArkiv = ThisWorkbook.Path 'Dette kunne også være f.eks "C:\faktura"
 
Naeste:

If Dir(FakturaArkiv & Application.PathSeparator & "Faktura " & Range(NummerPlacering) & ".PDF") <> "" Then
    Range(NummerPlacering) = Range(NummerPlacering) + 1
    GoTo Naeste
Else
'    ThisWorkbook.SaveAs (FakturaArkiv & Application.PathSeparator & "Faktura " & Range(NummerPlacering) & ".PDF")
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        FakturaArkiv & Application.PathSeparator & "Faktura " & Range(NummerPlacering) & ".PDF", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False
    MsgBox "Fakturanr. " & Range(NummerPlacering) & " er nu gemt i mappen:" & vbNewLine & FakturaArkiv
End If

End Sub



-------------
Jeg anvender Excel 2016 DK. Hvad anvender DU ? HUSK TILBAGEMELDING !!!

Besked fra: Bjarnehansen
Posteringsdato: 17.Dec.2013 kl. 17:31
skal den ikke første lave et nyt nr når den har gemt fakturaen og ikke som nu at den ændre nr når man trykker på gem faktura?

-------------
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.
Med venlig hilsen - Bjarne Hansen - Microsoft 365 DK

Besked fra: DennisDalgaard
Posteringsdato: 17.Dec.2013 kl. 17:56
Excelent: Tusind tak! Det er præcis det jeg søgte!

Bjarnehansen: Jo, det kunne faktisk være godt. Kan du hjælpe med det?

Og lige et opfølgende spørgsmål for at være ekstra besværlig, eller for at udfordre Jer (tag det som i vil). Kan det lade sig gøre, at få den til at gemme med fortløbende fakturanummer som hele tiden, men samtidig med at den tilføjer kundens navn efter fakturanummeret?

Eksempel: Næste faktura er til Dennis Andersen og skal have faktura nr. 160. Jeg vil derfor gerne have fakturaen til at hedde "Faktura 160_Dennis Andersen" (eller lignende).

Næste faktura skal så være nr. 161 og være til Jakob Poulsen, så derfor skal den hedde "Faktura 160_Jakob Poulsen".

Er dette muligt?

Besked fra: DennisDalgaard
Posteringsdato: 17.Dec.2013 kl. 18:00
Den opdateret faktura kan i finde her: https://www.dropbox.com/s/31vbhhcn5vb653x/Faktura%20RF%20opdateret.xlsm


Print side | Luk vindue