CheckBox işaretli sayfaları yazdırma

[mahmutozdemir]

Merhanalar,
Yazdır butonuna basınca userform çıkıyor.UserFormda sayfaları gezinmek için 5 adet buton ve yanlarında 5 adet CheckBox var.İşaretlediğim CheckBox hangi butonun yanındaysa yazdır butonuna basınca onları yazdırsın istiyorum.
Örneğin tablo 1 ve tablo 4 yanındaki CheckBox işaretleyip,yazdıra basınca tablo1 ve tablo4 sayfalarını yazdırsın
Teşekkürler.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Private Sub YAZDIR_Click()
    Dim X As Byte, Say As Byte
    
    For X = 1 To 5
        If Controls("CheckBox" & X) = True Then
            Sheets("TABLO" & X).PrintOut
            Say = Say + 1
        End If
    Next
    
    If Say > 0 Then
        MsgBox "Yazdırma işlemi tamamlanmıştır.", vbInformation
    Else
        MsgBox "Yazdırma işlemi için seçim yapmalısınız !", vbExclamation
    End If
End Sub

 

[mahmutozdemir]

Korhan Bey çok teşekkürler ederim. Elinize sağlık.

 

[mahmutozdemir]

Korhan bey,
Commedbutonun üzerine yazıcı resmi koyuyorum.Ancak tüm Commedbutonu kaplıyor.Ben onu sadece butonun sağına nasıl koyabilirim.

 

[ocamsul]

Korhan bey,
Commedbutonun üzerine yazıcı resmi koyuyorum.Ancak tüm Commedbutonu kaplıyor.Ben onu sadece butonun sağına nasıl koyabilirim.

CommandButton un Properties ayarları içindekli PicturePostion seçeneğini kullanarak istediğiniz konumlamayı yapabilirsiniz.

 

[mahmutozdemir]

Teşekkürler commandbutonun üzerinde PicturePostion seçeneğini çalışmıyor.Bende imagesin üzerinde yaptım.

 

[cebelitarık]

Sayın KORHAN AYHAN
Verdiğiniz kod için teşekkürler.
Ancak sayfa isimleri Tablo1, Tablo2 .. gibi standart değilde;
abc, dfg, hgf, fff, ggg gibi farklı isimlerde olsaydı ve dizin şeklinde olmasaydı çentikli sayfaları nasıl yazdırabilirdik.
Ayrıca sayfa isimlerini, Userform Üzerindeki butonlara otomatik olarak aldırabilirmiyiz? (Sayfa ismi değiştirildiğinde userform üzerindeki butonların ismide otomatik olarak değişsin)
Saygılarımla

 

[ocamsul]

Sayın KORHAN AYHAN
Verdiğiniz kod için teşekkürler.
Ancak sayfa isimleri Tablo1, Tablo2 .. gibi standart değilde;
abc, dfg, hgf, fff, ggg gibi farklı isimlerde olsaydı ve dizin şeklinde olmasaydı çentikli sayfaları nasıl yazdırabilirdik.
Ayrıca sayfa isimlerini Userform Üerindeki butonlara otomatik olarak aldırabilirmiyiz? (Sayfa ismi değiştirildiğinde userform üzerindeki butonların ismide otomatik olarak değişsin)
Saygılarımla

aşağıdaki şekilde denermisiniz!!!

Private Sub YAZDIR_Click()
    Dim X As Byte, Say As Byte
    
    For X = 1 To 5
        If Controls("CheckBox" & X) = True Then
            Sheets(X).PrintOut
            Say = Say + 1
        End If
    Next
    
    If Say > 0 Then
        MsgBox "Yazdırma işlemi tamamlanmıştır.", vbInformation
    Else
        MsgBox "Yazdırma işlemi için seçim yapmalısınız !", vbExclamation
    End If
End Sub

 

[cebelitarık]

Sayın Ocamsul
Teşekkür ederim.
Ancak belirttiğim gibi sayfa isimleri farklı farklı karekterlerden oluşuyor.
Sizin çözümde Sayfa1, Sayfa2, Sayfa3 .. gibi isimler olursa çalışır.
Eklediğim dosyayı incelerseniz memnun olurum.
Sayfa isimlerinde standart bir dizin şekli yoktur.
Saygılarımla

 

[ocamsul]

Sayın Ocamsul
Teşekkür ederim.
Ancak belirttiğim gibi sayfa isimleri farklı farklı karekterlerden oluşuyor.
Sizin çözümde Sayfa1, Sayfa2, Sayfa3 .. gibi isimler olursa çalışır.
Eklediğim dosyayı incelerseniz memnun olurum.
Sayfa isimlerinde standart bir dizin şekli yoktur.
Saygılarımla

Bilgisayarımı yeni formatladım bu nedenle yazıcı yok. Ancak birde sorunuz doğrultusunda aşağıdaki şekilde denermisiniz.

 Private Sub UserForm_Initialize()
For i = 1 To Sheets.Count
Controls("CommandButton" & i).Caption = Sheets(i).Name
Next i
End Sub

Private Sub YAZDIR_Click()
For a = 1 To 5
If Controls("checkbox" & a).Value = True Then Sheets(a).PrintOut
Next
End Sub

 

[mahmutozdemir]

Slm,
3 adet CommandButton ve yanlarında 3 checkbox var hangi CommandButtonun yanlarındaki checkboxu işaretlersek o CommandButtonun açtığı sayfayı yazdıra bilirmiyiz.Ancak CommandButtonun e hardickinden bir excel dosyasını acıyor.

 

[İhsan Tank]

Slm,
3 adet CommandButton ve yanlarında 3 checkbox var hangi CommandButtonun yanlarındaki checkboxu işaretlersek o CommandButtonun açtığı sayfayı yazdıra bilirmiyiz.Ancak CommandButtonun e hardickinden bir excel dosyasını acıyor.

merhaba
userform'un kod bölümüne

Private Sub CommandButton4_Click()
If CheckBox1.Value = True Then
Workbooks.Open("E:\GSİM.xls").PrintOut
ElseIf CheckBox2.Value = True Then
Workbooks.Open("E:\2009 SEANS PROĞRAMI.xls").PrintOut
ElseIf CheckBox3.Value = True Then
Workbooks.Open("E:\Yeni Klasör\öğreci listesi.xls").PrintOut
End If
End Sub

bu kodu yazarak dener misiniz

 

[mahmutozdemir]

İhsan bey teşekkürler.
E hard dick inde excel kitablarının bulunduğu bir yeni klasör adın da bir klasörüm var.Commadbutonla bu klasörü nasıl acabilirim.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu boş bir modüele uygulayıp denermisiniz.

Not : Haluk beyin daha önce başka bir başlıkta vermiş olduğu koddur.

Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
    (ByVal hWnd As Long, ByVal lpOperation As String, _
     ByVal lpFile As String, ByVal lpParameters As String, _
     ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
 
Sub Klasörü_Aç()
    ShellExecute 0, "Open", "E:\Yeni Klasör", vbNullString, "E:\", 1
End Sub

Ya da aşağıdaki kodu kullanabilirsiniz.

Option Explicit
 
Sub Klasör_Aç()
    ChDir "E:\Yeni Klasör"
    Application.Dialogs(xlDialogOpen).Show
End Sub

 

[mahmutozdemir]

Korhan Bey,Yanlış anlattım galiba E de zaten yeni klasör adında klasörüm var ben onun içindeki belgelere ulaşmak için o yeni klasörü açmak istiyorum.Yani bağlantı kurmak istiyorum.Bu klaörü yeni klasör yerine derslerim adında bir klasörde olabilir.

 

[Korhan Ayhan]

Selamlar,

Vermiş olduğum kodlar zaten varolan bir klasörü ekranınıza getiriyor. İstediğiniz bu değilmiydi?

 

[mahmutozdemir]

Private Sub CommandButton1_Click()
Workbooks.Open ("E:\GSİM.xls")
End Sub
ile E deki GSİM isimli excel dosyasını açıyorum.
Private Sub CommandButton1_Click()
Workbooks.Open ("E:\SPOR")
End Sub
Ancak bu kodla neden E deki spor klasörünü acamıyorum. Yada nasıl açarım.

 

[Korhan Ayhan]

Selamlar,

Dikkat ederseniz ilk kodunuzda excel dosyasını açıyorsunuz. Ve kullandığınız kod "Workbooks" ile başlıyor. Bu komut excel dosyalarını ifade etmektedir. İkinci kodunuzda ise "KLASÖR" açmak istiyorsunuz. Bilmelisiniz ki her komutla her işlemi yapamazsınız.

Bu sebeple size önerdiğim kodları kullanmalısınız.

 

[İhsan Tank]

Korhan Bey,Yanlış anlattım galiba E de zaten yeni klasör adında klasörüm var ben onun içindeki belgelere ulaşmak için o yeni klasörü açmak istiyorum.Yani bağlantı kurmak istiyorum.Bu klaörü yeni klasör yerine derslerim adında bir klasörde olabilir.

merhaba
bir module kopyalayınız

Sub Klasör_Aç()
Dim a
a = Shell("[COLOR="Red"]C[/COLOR]:\WINDOWS\Explorer.exe [COLOR="RoyalBlue"]E[/COLOR]:\Yeni Klasör", vbNormalFocus)
End Sub

kırmızı yer pc'deki windows'un olduğu sürücü
mavi olan yer ise sizin belirlediğiniz sürücü
Not : Kod Alıntıdır.

 

[mahmutozdemir]

Teşekkür ederim.Ellerinize sağlık.