Sayfaları PDF formatında kaydetme

[BedriA]

tarih formatını

strdate = Format(Now, "dd.mm.yyyy")

böyle yapma noktaları tire işareti koy

strdate = Format(Now, "dd_mm_yyyy")

Halit Bey,

Sizin verdiğiniz kodu uyarladım. O kodda tarih yok. Ben dosya isminin eğer "9-A" ve "2017-2018/1" seçilmişse "9-A-2017-2018/1" olmasını istiyorum diyecektim ki şimdi jeton düştü ki bu mümkün değil; dosya isimleri "/" içeremez.

Yardımınız için çok teşekkür ederim.

 

[atakan1971]

"atakan1971 PDF UYGULAMASI" Dosyasında "VARDİYA" sayfasında "nöbet listesi" düğmesine basınca tüm sayfaları baskı ön izleme veriyor. Ben ön izlemeyi istediğim tarihe göre almak istiyorum ve aynı zamanda masaüstüne PDF Adobe Reader dosyası kayıt etmesini istiyorum.

Sayfaları inceledim ama bir türlü kodu yazamadım, bazılarını kopyaladım ama olmadı.....