Sayfa yazdırmak

[metin_0606]

Gizli olan deneme isimli sayfanın A2:C aralığını makro ile nasıl yazdirabilirim

 

[kulomer46]

Merhaba

Makro içinde Gizli olan deneme sayfasını görünür yaparsınız. İstediğiniz aralığı yazdırdıktan sonra deneme sayfasını tekrar gizlersiniz.
Kullanıcı gizli olan deneme sayfasının önce görünür yapıldığını sonrada tekrar gizlendiğini farketmez.

Makro kodlarının başına Application.ScreenUpdating = False ve makro kodlarının sonuna Application.ScreenUpdating = True yazmayı unutmayınız.

Selamlar...

 

[metin_0606]

Merhaba

Makro içinde Gizli olan deneme sayfasını görünür yaparsınız. İstediğiniz aralığı yazdırdıktan sonra deneme sayfasını tekrar gizlersiniz.
Kullanıcı gizli olan deneme sayfasının önce görünür yapıldığını sonrada tekrar gizlendiğini farketmez.

Makro kodlarının başına Application.ScreenUpdating = False ve makro kodlarının sonuna Application.ScreenUpdating = True yazmayı unutmayınız.

Selamlar...

Sayin kulomer hangi makro kodunun başına bu dediğiniz kısımları ekliycegim

 

[muysun35]

sub gizleyazdir()
Dim gizli as Worksheet
set gizli = Sheets("deneme")
gizli.Visible = True
With gizli
.PageSetup.PrintArea = "A2:C"
.PrintOut
End With
Application.ScreenUpdating = False
gizli.Visible = False
End Sub

Deneyiniz

 

[metin_0606]

sub gizleyazdir()
Dim gizli as Worksheet
set gizli = Sheets("deneme")
gizli.Visible = True
With gizli
.PageSetup.PrintArea = "A2:C"
.PrintOut
End With
Application.ScreenUpdating = False
gizli.Visible = False
End Sub

Deneyiniz

Pagesetup.printarea="A2:C" satırında hata verdi

 

[muysun35]

sub gizleyazdir()
Dim gizli as Worksheet, son as Long
set gizli = Sheets("deneme")
gizli.Visible = True
son = gizli.Range("C65536").End(xlup).Row
With gizli
.PageSetup.PrintArea = "A2:C" & son
.PrintOut
End With
Application.ScreenUpdating = False
gizli.Visible = False
End Sub

deneyiniz

 

[muysun35]

sub gizleyazdir()
Application.ScreenUpdating = False
Dim gizli as Worksheet, son as Long
set gizli = Sheets("deneme")
gizli.Visible = True
son = gizli.Range("C65536").End(xlup).Row
With gizli
.PageSetup.PrintArea = "$A$2:$C$" & son
.PrintOut
End With
gizli.Visible = False
Application.ScreenUpdating = True
End Sub

6 nolu mesaj düzenlenemediğinden... son hal olarak bu kodları deneyiniz