snb
Verenigingslid
- Lid geworden
- 12 jun 2008
- Berichten
- 19.725
Test eens:
Code:
Sub M_snb()
msgbox application.defaultfilepath & "Template_shipment_document_Week " & Application.WeekNum(Date, 21) & format(now,"yyyymmddhhmm") & ".pdf"
thisworkbook.ExportAsFixedFormat 0, application.defaultfilepath & "Template_shipment_document_Week " & Application.WeekNum(Date, 21) & format(now,"yyyymmddhhmm") & ".pdf"
End Sub