koşula bağlı satır gizleme ve print

[MOONROSE]

ekteki gibi bir tablom var ve ben bu tabloyu print ederken belirttiğim alanlarda veri yok ise o satırları hide etsin bassın daha sonra unhide etsin. (print için command button1 e basılıyor) tabloda çok fazla satır var ve a5 gibi kağıt kullanıyorum bu sefer yazılar çok ufak çıkıyor okunmuyor. aslında her satırda bilgi olmuyor, bilgi olan satırlar müşteriye kaydına göre değişiyor.
7.satırdan başlamak üzere 23.satıra kadar
C:K sütunları arasında bilgi yoksa o satırı gizlesin yani

c7:k7 arasında bilgi yoksa 7. satırı,
C8:K8 arasında bilgi yoksa 8. satırı.

birde başka sorum olacak,print için aşağıdaki kodları kullanıyorum. Ama bu kodlarla default printer ne ise ondan baskı alıyor. Benim istediğim bilgisayarda tanımlı printerlardan istediğime print almak. Ya da file menüsündeki Print komutunu çalıştırmak.Bunun için macro recorder da bişeyler yaptım ama sorun çıkardı. Yardımlarınız için teşekkür ederim.

ActiveSheet.PageSetup.PrintArea = "$A$2:$M$36"
Sheets("TABAN MODEL FORMU").PrintOut Copies:=1

 

[veyselemre]

[vb:1:eab5a316b6]Sub gizleyazdir()
For x = 7 To 23
gizle = True
For Each veri In Range("c" & x & ":k" & x).Cells
If veri <> "" Then gizle = False
Next
If gizle = True Then Rows(x).Hidden = True
Next x
Application.Dialogs(xlDialogPrint).Show
Rows("7:23").Hidden = False
End Sub
[/vb:1:eab5a316b6]

 

[manevra]

dosyaniz ektedir.

umarim isinize yarar

 

[MOONROSE]

sayın manevra ve veyselemre'ye teşekkür ederim.Her 2 kodda işimi görüyor.