Pdf Kaydetme

[RUNGOR]

Merhabalar,
Fatura şablonumu hazırladım yazdır butonu ekledim normal yazdırabiliyorum fakat kaydet butonuna tıkladığımda o faturayı fatura numarasını verip pdf şeklinde otomatik olarak kaydetmek istiyorum. Yardımcı olurmusunuz. Şablon linktedir. Saygılarımla, http://s3.dosya.tc/server30/2zge2J/FATURA.rar.html

 

[Excelmy]

Kodlarınız ;

Sub PDF()
Dim fno
fno = InputBox("Fatura Numarasını Giriniz", "")
If fno = False Or fno = "" Then
    MsgBox "islem iptal"
Else
    ActiveSheet.PageSetup.PrintArea = "$A$1:$L$37"
    ActiveSheet.ExportAsFixedFormat xlTypePDF, CreateObject("wscript.Shell").Specialfolders.Item("Desktop") & "\" & fno & ".pdf"
    MsgBox "islem tamam"
End If
End Sub

 

[RUNGOR]

Merhabalar,
Çalıştıramadım rica etsem ekteki fatura sablonunun içine koyup atarsanız çok sevinirim bu işte yeniyim şimdiden çok tşk ederim..

 

[Excelmy]

Dosyanız, BURADA

 

[RUNGOR]

Dosyanız, BURADA

Çok Teşekkürler,