Hücredeki isim neyse o sayfadan çıktı almak

[teonet]

Merhaba,

Örneğin A2 hücresine formülle sayfa ismi geliyor. O hücreye yada yardımcı bir butona tıkladığımda A2 hücresinde hangi sayfanın ismi var ise o sayfadan yazıcıya çıktı gönderebilir miyiz? A2 ye başka sayfa geldiğinde ise gelen sayfanın çıktısını göndermek.

Şimdiden çok teşekkür ederim. Saygılar sunarım.

 

[Korhan Ayhan]

Merhaba,

Deneyiniz.

Option Explicit

Sub Print_Out()
    Sheets(CStr(Range("A2"))).PrintOut
End Sub

 

[teonet]

Merhaba,

Deneyiniz.

Option Explicit

Sub Print_Out()
    Sheets(CStr(Range("A2"))).PrintOut
End Sub

Sayın Korhan Bey, Çok güzel oldu. Elinize emeğinize sağlık. Teşekkür ederim.

 

[teonet]

Sayın Korhan Bey
Aynı mantıkla sadece baskı ön izleme için ayrı bir buton yapabilir miyiz? Şöyle A2 hücresin de yazan sayfa isminin baskı ön izlemesi gelsin.

şimdiden teşekkürler

 

[Korhan Ayhan]

PrintOut yerine PrintPreview yazarak deneyiniz.

 

[teonet]

Sayın Korhan Bey
Aşağıdaki hatayı aldım. iki ayrı buton olacak
1- ilk yaptığımız gibi direk çıktı olacak (bu butona bir de çıktı sayısı girebilirmiyiz)
2- baskı ön izleme yapmak istenildiği durumlarda kullanılacak.
Denedim, Member already exists in an object module from which thin object module derivers (başka modül var)

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Sub Print_Out()
    Dim Adet As Variant
    
    Adet = InputBox("Çıktı sayısını giriniz...", "Çıktı Sayısı", 1)
    
    If Adet = "" Then Exit Sub
    If Not IsNumeric(Adet) Then Exit Sub
    
    If Adet > 0 Then
        Sheets(CStr(Range("A2"))).PrintOut Copies:=Adet
    Else
        MsgBox "Yazdırma işlemi için pozitif değer girmelisiniz!", vbCritical
    End If
End Sub

Sub Print_Preview()
    Sheets(CStr(Range("A2"))).PrintPreview
End Sub

 

[teonet]

Sayın Korhan Bey
"Subscipt out of range" hatası aldım

 

[Korhan Ayhan]

Bu durumda dosyanızda bilmediğim bir durum var sanırım..

Örnek dosyanızı paylaşırmısınız.

 

[Korhan Ayhan]

2 kod içinde #7 nolu mesajımda örnek paylaştım..

 

[teonet]

Sayın Korhan Bey
sorunu çözdüm. Çok güzel oldu çok teşekkür ederim.