Alt Bilgis sadece 4.sayfada gözüksün

[Hakan ERDOST]

Excelde alt biligi sadece 4. sayfada gösterilebilir mi?
Yönetemi nedir?

 

[Ömer]

Merhaba,

Bu şekilde deneyin. Yazdırma esnasında sadece 4. sayfaya alt bilgi ekler.

Sub AltBilgi()
 
    Dim say As Integer, i As Integer, Bilgi As String
 
    say = ExecuteExcel4Macro("Get.Document(50)")
 
    Bilgi = "[COLOR=blue]Burası orta alt bilgidir[/COLOR]" 'Alt bilgi metnini mavi alana yazın.
 
    Application.ScreenUpdating = False
 
    With ActiveSheet.PageSetup
        For i = 1 To say
            .CenterFooter = ""
            If i = 4 Then
                .CenterFooter = Bilgi
            End If
            ActiveSheet.PrintOut i, i
        Next i
    End With
 
    Application.ScreenUpdating = True
 
End Sub

.

 

[Hakan ERDOST]

Merhaba,

Bu şekilde deneyin. Yazdırma esnasında sadece 4. sayfaya alt bilgi ekler.

Sub AltBilgi()
 
    Dim say As Integer, i As Integer, Bilgi As String
 
    say = ExecuteExcel4Macro("Get.Document(50)")
 
    Bilgi = "[COLOR=blue]Burası orta alt bilgidir[/COLOR]" 'Alt bilgi metnini mavi alana yazın.
 
    Application.ScreenUpdating = False
 
    With ActiveSheet.PageSetup
        For i = 1 To say
            .CenterFooter = ""
            If i = 4 Then
                .CenterFooter = Bilgi
            End If
            ActiveSheet.PrintOut i, i
        Next i
    End With
 
    Application.ScreenUpdating = True
 
End Sub

.

Teşekkürler.Ancak bir gizleme-yazdırma makrom var.Aşağıdaki gibi buna uyarlayabilir miyiz?

Sub SatırGizle()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
son = Range("B603").End(3).Row + 7
For i = 2 To son
If Cells(i, 51) = 0 Then Rows(i).EntireRow.Hidden = True
Next
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
son1 = Range("AZ603").End(3).Row
ActiveSheet.PageSetup.PrintArea = "$A$1:$AZ$" & son1
ActiveSheet.PrintPreview
End Sub

 

[Hakan ERDOST]

Ya da şöyle belirteyim. Alt bilgiyi son sayfaya nasıl ekleyebiliriz

 

[Ömer]

Ya da şöyle belirteyim. Alt bilgiyi son sayfaya nasıl ekleyebiliriz

Kodlarıdaki;


If i = 4 Then satırındaki 4 yerine say yazmanız yeterli olacaktır.

.