- Katılım
- 11 Mayıs 2005
- Mesajlar
- 110
- Excel Vers. ve Dili
- Office 365 | Türkçe
- Altın Üyelik Bitiş Tarihi
- 14-01-2024
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.
Bahsettiğim olayla ilgili yabancı bi siteden bulduğum kod şu şekilde ama bunu kendime uyarlayamadım, tam benim istediğim olay bu yardımcı olursanız sevinirim.
-----------------------------------
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
----------------------------------------
Örnek dosyamıda ekledim.
İlginiz alakanız için teşekür ediyorum.. Ellerinize sağlık.
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.
Bahsettiğim olayla ilgili yabancı bi siteden bulduğum kod şu şekilde ama bunu kendime uyarlayamadım, tam benim istediğim olay bu yardımcı olursanız sevinirim.
-----------------------------------
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
----------------------------------------
Örnek dosyamıda ekledim.
İlginiz alakanız için teşekür ediyorum.. Ellerinize sağlık.
)