vendredi 27 février 2015

Factuur opslaan als pdf

Posted on 10:43 by Unknown
Beste,



Ik heb voor facturering een macro die het bestand op slaat als .pdf



Er is wel een probleempje



sinds gebruik van office 2013 geeft ie foutcode 1004 bij deze rij :

"ActiveWorkbook.SaveAs NieuwFact, FileFormat:=xlOpenXMLWorkbook"



En voor zover ik weet is deze toch goed geschreven?



Iemand enig idee?






Citaat:



Sub VolgFact()

Range("B14").Value = Range("B14").Value + 1

Range("A26:D58").ClearContents

Range("B15").Value = Date

End Sub









Public Sub OpslBestand()

Dim NieuwFact As Variant

'kopiëren document als nieuwe factuur

ActiveSheet.Copy

NieuwFact = "C:\Users\TheFobion\Documents\Boekhouding\Debet\Fa ct " & "4UP" & Range("B14").Value & ".pdf"

ActiveWorkbook.SaveAs NieuwFact, FileFormat:=xlOpenXMLWorkbook

ActiveWorkbook.Close

VolgFact



End Sub



Public Sub printen()

ActiveSheet.PrintOut , , Range("O2").Value

End Sub







Factuur opslaan als pdf
Categories:

0 commentaires:

Enregistrer un commentaire

Inscription à : Publier les commentaires (Atom)