bir klasördeki resmi veya bir dosyayı yazıcıdan almak!

[olymposss]

sn hocalarım hayırlı sabahlar
bir klasörde bulunan bir resmi yazdıramadım.aşağıdaki kodları kullandım ama olmadı.yardımcı olabilirmisiniz. çok teşekkürler.

kod:
PrintOut = ThisWorkbook.Path & "\" & Label1 & "\rapor\grafik.jpg"

saygılar:yardim:

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin. Kod resmi sayfaya yükler ve sayfayı yazdırır.

[a1].Select
ActiveSheet.Pictures.Insert (ThisWorkbook.Path & "\" & Label1 & "\rapor\grafik.jpg")
ActiveSheet.PrintOut

 

[olymposss]

sn leventm
çok teşekkür ederim. emeğinize sağlık.