hulp bij macro

[jostheboss85]

Hallo allemaal,

Ik heb een excel bestand wat alleen werkt op mijn laptop.
Zo wil ik met 1 klik op de knop een factuur als pdf te voorschijn laten komen en direct opslaan.
Dit werkt op de laptop maar zodra ik het op een andere pc probeer lukt

Krijg ik de volgende meldingen.

"Not possible to create the PDF, possible reasons:
1."Microsoft Add-in is not installed
2."You Canceled the GetSaveAsFilename dialog _
3."The path to Save the file in arg 2 is not correct
4. You didn't want to overwrite the existing PDF if it exist"

Kan iemand uitleggen per punt wat ik daar aan kan doen.

Voor de volledigheid hieronder de volledige code

Sub NextInvoice()
Range("F18").Value = Range("F18").Value + 1
Range("B24:J26").ClearContents
End Sub

Sub RDB_Worksheet_Or_Worksheets_To_PDF()
Dim FileName As String

If ActiveWindow.SelectedSheets.Count > 1 Then
MsgBox "There is more then one sheet selected," & vbNewLine & _
"be aware that every selected sheet will be published"
End If

'Call the function with the correct arguments
'Tip: You can also use Sheets("Sheet3") instead of ActiveSheet in the code(sheet not have to be active then)
FileName = RDB_Create_PDF(ActiveSheet, "C:\Facturen\Factuur" & Range("E4").Value & ".pdf", True, True)

'For a fixed file name and overwrite it each time you run the macro use
'RDB_Create_PDF(ActiveSheet, "C:\Users\Ron\Test\YourPdfFile.pdf", True, True)

If FileName <> "" Then
'Ok, you find the PDF where you saved it
'You can call the mail macro here if you want
Else
MsgBox "Not possible to create the PDF, possible reasons:" & vbNewLine & _
"Microsoft Add-in is not installed" & vbNewLine & _
"You Canceled the GetSaveAsFilename dialog" & vbNewLine & _
"The path to Save the file in arg 2 is not correct" & vbNewLine & _
"You didn't want to overwrite the existing PDF if it exist"
End If
NextInvoice
End Sub

 

[Warme bakkertje]

Heb je deze functie ook mee gekopieerd ?

RDB_Create_PDF

 

[jostheboss85]

Ik weet niet hoe ik dat zou moeten doen. Kun je me dat uitleggen?

 

[Warme bakkertje]

Begin al eens met dit grondig door te lezen. Hierin staat alles wat je moet weten om dit werkend te krijgen.
http://msdn.microsoft.com/en-us/library/ee834871(office.11).aspx

 

[jostheboss85]

Thx het is opgelost