Pdf dosyası oluşturmak

[bilalakdeniz]

Pdf dosyası oluşturmak makrosunu yaptım ama, pdf dosyanın ismini, b4 belirlediğim hücreden almasını istiyorum, teşekkürler

 

[halit3]

bunu denermisiniz.
dosya nerde olursa olsun pdf dosyasını yanına çıkartacaktır.

Sub PDF()
dosya_adı = Sheets("Sayfa1").Range("B4").Value
Sheets("Sayfa1").Range("A1:C30").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Application.ThisWorkbook.Path & "\" & dosya_adı, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
MsgBox "işlem tamam!"
End Sub

 

[halit3]

ayrıca aşağıdaki linki inceleyiniz.

http://www.excel.web.tr/f48/pdf-kaydetme-yeri-secme-t89545.html

 

[bilalakdeniz]

Teşekkürler,

 

[halit3]

Teşekkürler,

iyi çalışmalar