Sayfayı pdf kaydedip mail olarak göndermek

[lapot]

Cok Sagol, ayrica Dosyanin adini active sayfadaki S2 hucresindeki deger olarak kaydetip eklemeyi deniyorum ama hata veriyor, yardimci olabilirmisiniz?

Koda bunu ekledim fakat hata veriyor..

Dim strFilename As String
Dim rngRange As Range

Set rngRange = ActiveSheet.Range("S2")
strFilename = rngRange.Value & Format(Now(), "ddmmyyyy")
Dosya_Adi = "C:\Users\RamazanT\Desktop\" & strFilename & ".pdf"

ActiveSheet.Range("A1:I" & Son + 3).ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Dosya_Adi, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=Fals

'S3.Range("A1:I" & Son + 1).ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Dosya_Adi, Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False

 

[Korhan Ayhan]

Nasil bir hata veriyor?

 

[lapot]

Sorun kodda degilmis, S2 deki isimlerde ": / []" gibi isaretler olunca hata verdi.

cok sagol arkadasim.

 

[lapot]

Arkadaslar dosyami nerdeyse tamamladim fakat kucuk bir sorun var.


Listemde 20 den fazla fatura varsa , pdf dosyasi yazilari kucultuyor ve butun verileri sol tarafa kaydiriyor , bunun nedenide butun verileri tek sayfaya kaydit etmesiyle ilgili.
bu sorunu nasil giderebiliriz orenegin eger listede 20 den fazla fatura varsa verilerin bir kismini 2. sayfaya akrarabilirmiyiz PDF'i daha okunabilir halde tutabilmek icin? Tabiki ikinci sayfaya gectimi listenin altindaki kisimi tekrar en alta yazdirmak istiyorum ikinci sayfada 2. resimdeki kisim.

Ornek dosyayi ve PDF dosyasinin resmini ekliyorum

cok tesekkurler simdiden