Sayfadaki Yazdır Butonuna Tıklandığında Sekmeleri Ayrı Ayrı PDF Olarak Kaydetme

[cenkaltunkaya]

Arkadaşlar Tekrar Merhaba

6 Sekmeli Bir Excel dosyam var.

HAZIRLA - FİRMA1 - FİRMA2 - FİRMA3 - FİRMA4 - FİRMA5 - FİRMA6

Hazırla sayfamda gerekli içerikleri giriyorum, bu diğer sekmelerde ilgili yerlere dağılıyor.
Hazırla sayfamdaki YAZDIR butonuna tıkladığımda

FİRMA1 - FİRMA2 - FİRMA3 - FİRMA4 - FİRMA5 - FİRMA6

Sekmelerini sekme isimlerine göre
D:/musteriler/firma1
D:/musteriler/firma2
D:/musteriler/firma3
şeklinde ilgili firma klasörlerinin içine PDF olarak kaydetmesini istiyorum mümkünmüdür ?

Eğer bu mümkün değilse, en azından TEK BİR KLASÖR İÇİNE bütün sekmeleri sekme ismine göre tek tek kaydedermi.

İlginiz alakanız için teşekür ediyorum.. Ellerinize sağlık.

 

[cenkaltunkaya]

Aradığım şeyi NET olarak buldum fakat kendime uyarlayamıyorum arkadaşlar.

Kod aşağıda bunu kendime nasıl uyarlayabilirim.

Excel dosyamıda ekledim.


-----------------------------------
Here is a code sample that does what you want
The main additions are:
1)set fileName as the path an file name you want.
2) use the SendKeys command to set fileName when the dialog box appears


Sub aprint()
Dim fileName As String

Sheets("Sheet1").Select
'set the path and file name
fileName = "C:WINDOWSDesktopsheet1.PDF"
'Enters the name and path of the PDF file when the PrintFileAs dialog box is opened
SendKeys fileName & "{ENTER}", False
'prints the file
Worksheets(1).PrintOut ActivePrinter = "Acrobat PDFWriter on LPT1:"
Sheets("Sheet2").Select
'set the path and file name
fileName = "C:WINDOWSDesktopsheet2.PDF"
'Enters the name and path of the PDF file when the PrintFileAs dialog box is opened
SendKeys fileName & "{ENTER}", False
'prints the file
Worksheets(2).PrintOut ActivePrinter = "Acrobat PDFWriter on LPT1:"

End Sub

----------------------------------------

 

[cenkaltunkaya]

Arkadaşlar benim şu problemimi bi çözelim. Yardımlarınızı bekliyorum.