xls uzantılı bir dosya yazdırma ?

[qiqirdeq]

Merhaba,

Userform üzerinden "C:\deneme\deneme.xls" excel dosyasını nasıl yazdırabilirim

teşekkürler

 

[ÖmerBey]

Merhaba,
Aşağıdaki kodları deneyiniz.

Private Sub CommandButton1_Click()
Set kitap = Workbooks.Open("C:\deneme\deneme.xls") 'Çalışma kitabını aç
kitap.PrintOut 'Yazdır
kitap.Close 0 'Kapat
End Sub