seçilen sayfayı veya sayfaları yazdırmak

[abcd_efe]

merhaba arkadaşlar. ekteki dosyada seçilen sayfayı veya sayfaları işaretledikten sonra seçilenleri yazdır denildiğinde seçilenlerin çıktısını almak için ne yapılabilir yardımcı olursanız sevinirim. şimdiden teşekkür ederim. iyi çalışmalar.

 

[hamitcan]

Dosyanızdaki kod zaten bu işi görüyor.Sadece dosyanızda, sayfa2 isimli bir sayfa oluşturmanız gerekiyor.

Private Sub CommandButton22_Click()
Dim cb As OLEObject, sat As Byte, kontrol As Boolean
For Each cb In Sheets("giriş").OLEObjects
    If TypeName(cb.Object) = "CheckBox" Then
        If cb.Object.Value = True Then
            sat = Right(cb.Name, Len(cb.Name) - 8)
            Sheets("sayfa2").Range("B4,G13,C11").Clear
            Sheets("sayfa2").Range("B4").Value = Cells(sat, "E").Value
            Sheets("sayfa2").Range("G13").Value = Cells(sat, "F").Value
            Sheets("sayfa2").Range("C11").Value = Cells(sat, "G").Value
            Sheets("sayfa2").PageSetup.PrintArea = "Sayfa2!$B$4:$G13"
            Sheets("sayfa2").PrintOut
            kontrol = True
        End If
    End If
Next cb
If kontrol = True Then
    MsgBox "İşlem Tamam"
    Else
    MsgBox "Yazılacak ayları seçiniz!", vbCritical, "UYARI"
End If
End Sub

 

[halit3]

merhaba arkadaşlar. ekteki dosyada seçilen sayfayı veya sayfaları işaretledikten sonra seçilenleri yazdır denildiğinde seçilenlerin çıktısını almak için ne yapılabilir yardımcı olursanız sevinirim. şimdiden teşekkür ederim. iyi çalışmalar.

alternatif kod

Private Sub CommandButton22_Click()
Set SH = Sheets(ActiveSheet.Name)
For n = 1 To ActiveSheet.Shapes.Count
On Error Resume Next
If TypeName(SH.Shapes(n).OLEFormat.Object.OLEObject) = "OLEObject" Then
If TypeName(SH.Shapes(n).OLEFormat.Object.Object) = "CheckBox" Then
If SH.Shapes(n).OLEFormat.Object.Object.Value = True Then
yer = SH.Shapes(n).OLEFormat.Object.Object.Caption
Sheets(yer).PrintOut
End If
End If
End If
Next
End Sub

 

[abcd_efe]

teşekkür ederim arkadaşlar. halit3 arkadaşımızın kodu çalıştı. diğeri sayfa2 oluşturduğum halde çalışmıyor. tekrar teşekkürler

 

[halit3]

teşekkür ederim arkadaşlar. halit3 arkadaşımızın kodu çalıştı. diğeri sayfa2 oluşturduğum halde çalışmıyor. tekrar teşekkürler

iyi çalışmalar