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.
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.
Kod:
ActiveSheet.PageSetup.PrintArea = "$A$2:$M$36"
Sheets("TABAN MODEL FORMU").PrintOut Copies:=1