Makro ile yazıcıdan çıktı almak

[kkamun]

Herkese Selamlar,

Sizden bir ricam olacak, bilgisayarımda bulunan belli klasörün içindeki istediğim excel dosyasının çıktısını otomatik print almak istiyorum nasıl yapabilirim?

Aklımda şöyle birşey var , örnegin; yolu masaustu\DENEME klasörünün içindeki DENEME1 excelinin sayfasının printini almak istiyorum, bu çıktı alma işleminde basit bir userform ile çıktı alınacak dosya adını yazıp çıktı alsam süper olur, umarım anlatabilmişimdir yardımlarınız için şimdiden teşekkürler.

Ekteki çalışmaları bir dosya içerisinde düşünebilirsiniz.

 

[ÖmerBey]

Merhaba,
Ekteki dosyayı inceleyiniz.

 

[Kekoli]

Ellerinize sağlık, eve gidince ben de deneyeceğim benim de ihtiyacım var buna.

 

[kkamun]

Hocam elinize, emeğinize sağlık.

 

[kkamun]

Hocam çıktı almak istediğim klasör konumunu kod içine yazmayı ve gözat ile direkt o klasöre ulaşmayı istiyorum. Denedim başarılı olamadım.

 

[ÖmerBey]

Yol kısmını kendinize göre değiştirip şu şekilde deneyiniz.

Private Sub CommandButton1_Click()
yol = "D:\Deneme\"
If Dir(yol) = "" Then Exit Sub

dsy = Dir(yol & "*.xls?")
Do While dsy <> ""
    ListBox1.AddItem yol & dsy
    dsy = Dir()
Loop
End Sub

 

[kkamun]

Üstteki aktifleri silmeden denemiştim. Tamamdır, teşekkürler.

 

[ÖmerBey]

Rica ederim,
İyi çalışmalar...