Excel sayfasında sadece seçili hucrelerın yazdırılması

[SULTANK]

Herkese Merhaba; konu ile ilgili yardımlarınız için şimdiden teşekkür ederim..
Excel de bir tablo hazırladım ve bu tabloda ilgili şemanın dışında bos olan hucrelere yenı veriler gırıyorum yazdırmak ıstedıgım sayfada sadece bu verılerın yazdırılmasını ıstıyorum ...
ben bunu tabloyu kırmızı yazıda yapıp yenı girdigim verılerı sıyahla yapmak ve sadece sıyahların yazdırılması olarakta denedım bır turlu yapamadım..
Umarım derdimi anlatabilmişimdir ... :redface:

 

[SULTANK]

ya da şu şekilde de yardımcı olabilirsiniz.. hazır tablom hucrede silik bir şekılde de kalabılır resım gibi ben sadece hucrelerı doldurayım doldurdugum yer yazdırılsın.. nasıl olur bılmıyorum ki.. bır sekılde alttakı tablonun yazdırılmaması gerekıyor..

 

[DEVABAHARAT]

yazdırma alanımı sormak istediğin

sadece istediğin yerin çıkmasını istiyorsan
dosya/sayfa yapısı/çalışma sayfası
bölümünden seçimi yapabilirsin

 

[SULTANK]

o formun oldugu hucrelere denk gelmelı ama bu sekılde ıstıyorum...açıkcası form hazır yazılı o yazılara denk gelmeli..

 

[DEVABAHARAT]

Bir örnek ekleyip anlatsan sanırım daha kolay olacak

 

[SULTANK]

ekteki gibi kırmızı metınler cıkmasın uzerıne yazdıgım sıyah renkler cıksın ıstıyorum

 

[SULTANK]

kımse yokmu ya bunu cevaplayabılecek ..... acilll

 

[parametre]

Bu bilgilerin yeri standart mi olacak yoksa değişkenmi standart olacaksa bir yo onereyim digeri için makro yazmak gerekiyor standart için dosya yazdima alani oradan control tusuna basarak mousin sol tusuna basarak istedigin yeri sec farklı yeride secmek istersen control tusunda ein sabit kalacak secmek istedigin yi sececeksin sonra yazdır komutuna gelip secii yerleri yazdır diyeceksin bu kadar kolay gelsin

 

[SULTANK]

tesekkur ederım ama ben ıstıyorum kı ; o kırmızı yazılar zaten baskılı sayfalarda mevcut bız sadece uzerıne sıyahla boslukları doldurup yazıcıya baskılı kagıdı yerlestırdıgımızde uzerıne denk gelsın ıstıyoruz bu yuzden kırmızı yerlerın yazılmaması gerekıyor.. dedıgın gıbı denk gelmıyor ustune

 

[parametre]

Sayın sultank kırmız cizgili ve yazılı yerleri form olarak dusundum ben standart dememdeki gaye odur

 

[parametre]

ornegi inceleyiniz

siyah yerlere birseyler yazın yazdırın siyah yerlerin yazıcıdan cıkması gerekiyor

 

[SULTANK]

siyah yerlerı yazdırıyor ama 4 sayfa seklınde seçili hucrelerri tek sayfada yazdıramıyormuyuz... yada benım excel programında mı sorun bır turlu yapamıyorum ki .?

 

[parametre]

buradaki link size fikir verecektir yazdırmak istediginiz hucreleri belirtniz sanırım sorununuz cozulmus olacatır kolay gelsin

 

[SULTANK]

C5den C10 a , I10 ,C13,C14,C15,C16,D13,D14,D15,D16,E13,E14,E15,D16,I13,I14,I15,I16,J13,J14,J15,J16,K13,14,K15,K16 bunlar yazdırılması ıstedıgım hucreler ama aynı bu sayfadakı duzenine gore yazdırmak ıstıyoruz,yazılacak hucreler baskılı kagıtta oturması gerekıyor.baskılı kagıt aynı kırmızı yazılı form şeklınde.

 

[parametre]

C5den C10 a , I10 ,C13,C14,C15,C16,D13,D14,D15,D16,E13,E14,E15,D16,I13,I14,I15,I16,J13,J14,J15,J16,K13,14,K15,K16 bunlar yazdırılması ıstedıgım hucreler ama aynı bu sayfadakı duzenine gore yazdırmak ıstıyoruz,yazılacak hucreler baskılı kagıtta oturması gerekıyor.baskılı kagıt aynı kırmızı yazılı form şeklınde.

Sayın sultank size kolaylık olması amacıyla iki adet dosya gonderiyorum birinde direk print tusuna basacaksınız digerinde birinde calısma yapıp diger sayfayı yazıcıdan cıkaracaksınız

sizinde belirttiğiniz hucreleri direk print tusuna basacağın eke kodları yazdım kodlarım

private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.PrintArea = "$C$13:$C$16,$D$13:$D$16,$E$13:$E$15,$I$13:$I$16,$J$13:$J$16,$K$13:$K$16"
End Sub

kolaygelsin umaım sorun yasamazsınız kolay gelsin

 

[SULTANK]

bu cok ıı fıkır dusunememıstım ben bunu cok tesekkur ederım cok ısıme yaradıı....sağolunnn...kolay gelsınn