sayfa Yazdır

[mcetinkaya65]

Yardımlarımla hazırladığım proğramda
1.Örnek sayfaya bir yazdır butonu ekleyelim.Bu buton Ana sayfada yazdığımız isme göre açılan sayfalara da eklensin.Mümkünse sayfayı renksiz olarak yazdırması,A44 hücresi boş ise A1 den J43 kadar yazdırması,A44 dolu ise 2. sayfayı da A44 den J83 kadar yazdırması.
2.Ana sayfaya öyle bir yazdırma butonu ekleyelim ki yukardaki mantıkla yazdır dediğimizde bütün müşterilerin sayfalarını yazdırması.
Mümkün mü?
Saygılarımla..

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Sub Yazdir()
 
    Dim i As Integer
    
    Application.ScreenUpdating = False
    
    For i = 1 To Worksheets.Count
        With Sheets(i)
            If .Name <> "Örnek" And .Name <> "Ana Sayfa" Then
                .Select
                ActiveSheet.PageSetup.BlackAndWhite = True
                If Range("A44") = "" Then
                     ActiveSheet.PageSetup.PrintArea = "A1:J43"
                Else
                    ActiveSheet.PageSetup.PrintArea = "A1:J83"
                End If
                .PrintOut
            End If
        End With
    Next i
    
    Application.ScreenUpdating = True
                
End Sub

.

 

[mcetinkaya65]

Yardımlarımla hazırladığım proğramda
1.Örnek sayfaya bir yazdır butonu ekleyelim.Bu buton Ana sayfada yazdığımız isme göre açılan sayfalara da eklensin.Mümkünse sayfayı renksiz olarak yazdırması,A44 hücresi boş ise A1 den J43 kadar yazdırması,A44 dolu ise 2. sayfayı da A44 den J83 kadar yazdırması.
2.Ana sayfaya öyle bir yazdırma butonu ekleyelim ki yukardaki mantıkla yazdır dediğimizde bütün müşterilerin sayfalarını yazdırması.
Mümkün mü?
Saygılarımla..

Sayın Ömer hocam.
Yukarki sorunun 2 sorusu çözümlenmiş sağ olun.1 soru nun sorum şekli biraz kapalı herhalde.Proğramda Ana sayfaya yazdığımız isme çift tıklayınca örnek sayfadan yazılan isme bir sayfa açıyor.Benim istediğim yukarıdaki mantıkla yazdır butonu da her sayfaya eklenmesi.
Saygılarımla.

 

[Ömer]

Bu şekilde deneyin.

Sub SayfaYazdir()
 
    Application.ScreenUpdating = False
    
    With ActiveSheet
        If .Name <> "Örnek" And .Name <> "Ana Sayfa" Then
            .PageSetup.BlackAndWhite = True
            If Range("A44") = "" Then
                .PageSetup.PrintArea = "A1:J43"
            Else
                .PageSetup.PrintArea = "A1:J83"
            End If
            .PrintOut
        End If
    End With
    
    Application.ScreenUpdating = True
                
End Sub

.

 

[mcetinkaya65]

Sağ olun var olun.İlginize teşekkürler.
Selamlar..