Altbilgi kaldırma

[m_koken]

Merhaba,

Aşağıdaki koda ne eklersek sayfanın altbilgisi kalkar.

Teşekkürler,

Sub LCINVPL()
'
' LCINVPL Makro
'

'
Sheets("GENEL FATURA").Select
Sheets("GENEL FATURA").Copy After:=Sheets(3)
Sheets("GENEL FATURA (2)").Select
Sheets("GENEL FATURA (2)").Name = "LC FATURA"
ActiveSheet.Shapes.Range(Array("Picture 2")).Select
Selection.Delete
Range("A2:H2").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=39
ActiveSheet.Shapes.Range(Array("Picture 1")).Select
Selection.Delete
Application.PrintCommunication = True
Sheets("PACKING LIST").Select
Sheets("PACKING LIST").Copy After:=Sheets(4)
Sheets("PACKING LIST (2)").Select
Sheets("PACKING LIST (2)").Name = "LC PL"
Range("B3838").Select
ActiveWindow.SmallScroll Down:=-36
ActiveSheet.Shapes.Range(Array("Resim 5")).Select
Selection.Delete
Range("A2:G2").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=45
ActiveSheet.Shapes.Range(Array("Resim 8")).Select
Selection.Delete
Application.PrintCommunication = True
End Sub

 

[hamitcan]

Kodun başına aşağıdaki kod satırlarını ekleyip deneyin.

ActiveSheet.PageSetup.CenterFooter = ""
 ActiveSheet.PageSetup.RightFooter = ""
 ActiveSheet.PageSetup.LeftFooter = ""

 

[m_koken]

Çok sağol hocam, iyi çalışmalar.