İmage1 nesnesini yazdırma

[metin_0606]

Değerli forum üyeleri paylaşmış olduğum çalışmamda İmage1 nesnesine GRAFIK sayfasındaki verileri ve grafikleri alıyorum. Yapmak istediğim image1 nesnesine aldığım grafik ve verileri olduğu gibi yatay şekilde yazdırmak. Yardımlarınız için şimdiden teşekkürler

 

[Seyit Tiken]

Bu şekilde bir deneyiniz.

UserForm1.PrintForm

 

[metin_0606]

Seyit bey geri dönüş için öncelikle çok teşekkür ederim. Makro ile yazıcıdan çıktı alıyorum ancak userformu yazdırdığı için yazıcıdan çıktı aldığımda userformun altındaki commontbutonlarda çıkıyor. Buna bir çözüm bulabilirmiyiz

 

[Seyit Tiken]

Bu şekilde deneyiniz.

Me.CommandButton1.Visible = False
Me.CommandButton2.Visible = False
Me.PrintForm
Me.CommandButton1.Visible = 1
Me.CommandButton2.Visible = 1

 

[metin_0606]

Bu şekilde deneyiniz.

Me.CommandButton1.Visible = False
Me.CommandButton2.Visible = False
Me.PrintForm
Me.CommandButton1.Visible = 1
Me.CommandButton2.Visible = 1

Şimdi oldu Seyit Bey çok teşekkür ederim

 

[Haluk]

CreateObject("Shell.Application").Namespace(0).ParseName("C:\qqq\testjpg.jpg").InvokeVerb ("Print")

.

 

[metin_0606]

CreateObject("Shell.Application").Namespace(0).ParseName("C:\qqq\testjpg.jpg").InvokeVerb ("Print")

.

Teşekkürler Haluk hocam alternatif olarak bunu da aldım

 

[Korhan Ayhan]

Alternatif;

Private Sub CommandButton2_Click()
    Dim Grafik As Object
    Set Grafik = Me.Image1.Picture
    If Not Grafik Is Nothing Then Sheets("GRAFIK").Range("Yazdırma_Alanı").PrintOut
End Sub

 

[metin_0606]

Alternatif;

Private Sub CommandButton2_Click()
    Dim Grafik As Object
    Set Grafik = Me.Image1.Picture
    If Not Grafik Is Nothing Then Sheets("GRAFIK").Range("Yazdırma_Alanı").PrintOut
End Sub

Teşekkürler Korhan Hocam bunuda Alternatif olarak adım