SEÇİLİ ALANI YAZDIRMA

[muzaffer605]

SEÇÝLÝ ALANI YAZDIRMA

DOSTLAR MERHARAB EXCELDEKİ SAYFADA YAZDIR DEDÐİMİDE B1-B40 VE H1-H40 ARASINI YAZMASINI İSTİYORUM NASIL YAPARIM BUNU.
YANİ YAZDIRMA ALANINI NASIL BELİRLERİM
YARDIMLARINIZI BEKLİYORUM.

 

[Levent Menteşoğlu]

Aşağıdaki kodu Thisworkbook kod sayfasına kopyalayın. Yazdırma butonuna bastığınızda devreye girerek yazdırma alanınızı belirleyecektir.

Eğer B1:H40 aralığı ise

[vb:1:5060b8d2a9]Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.PrintArea = "$B$1:$H$40"
End Sub
[/vb:1:5060b8d2a9]

Sadece B1:B40 ve H1:H40 aralığı ise

[vb:1:5060b8d2a9]Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.PrintArea = "$B$1:$B$40,$H$1:$H$40"
End Sub
[/vb:1:5060b8d2a9]

 

[muzaffer605]

dostum sanırım beceremedim daha ayrıntılı bir şey yazsan basic düzenleyicisini açıyorum ama gerisini bilmilyorum

 

[Levent Menteşoğlu]

VB editörünü açtıktan sonra (alt+F11) solüst köşedeki Thisworkbook yazısını çift tıklayın ve kodu oraya kopyalayın.

 

[Levent Menteşoğlu]

Aşağıda bir resim ekliyorum.

 

[muzaffer605]

teşekkürler oldu dostlarım sağolasınız

 

[taner3106]

yazdirma alani

istenilen kismi yazdirmak icin makrosuz bir cözüm:
yazdirmak istedigimiz bölümü secip sonradan dosya, ordan da yazdirma alani, ordan sonra da yazdirma alanini sabitle yi secersek sadece istedigimiz bölümü yazdirabiliriz.
Not: Bendeki menüler almanca. menüyü almancadan türkceye cevirince böyle bir anlam cikiyor. Eger direkt böyle bir sey yoksa buna benzer anlamda birsey vardir.
Kolay gelsin

 

[heft]

Merhaba,
syn leventm bu şekilde yapıldığında 2 sayfa halinde yazdırılıyor. peki bunu teksayfaya sığdırma imkanı var mıdır?

 

[hypernovea]

SELAMLAR ARKADAŞLAR

"$B$1:$B$40,$H$1:$H$40" GİBİ SABİT BİR ALANI DEĞİLDE SADECE MAUSE İLE O AN İÇİN SEÇTİĞİM ALANIN YAZDIRILMASINI NASIL SAĞLAYABİLİRİM. BURDA TEK PROBLEM
MESELA BÜYÜK HARFE ÇEVİRİRKEN ŞUNU KULLANMIŞTIK AMA ... BUNDA NASIL KULLANIRIM

'Metni Büyük harf yapmak içinse şu makroyu kullanın:
Sub BuyukHarf()
For Each c In Selection.Cells
c.Value = UCase$(c.Value)
Next c
End Sub

YOLLAMIŞKEN KÜÇÜK HARFİDE YAZAYIM
'Metni küçük harf yapmak içinse şu makroyu kullanın:
Sub KucukHarf()
For Each c In Selection.Cells
c.Value = LCase$(c.Value)
Next c
End Sub

ŞİMDİDEN TEŞEKKÜRLER

 

[hypernovea]

:yardim:
Tekrar merhaba arkadaşlar, cevap gelmedi o nedenle tekrar yazma gereği duydum.
sadece mause ile seçilen alanı ( yazdırma alanı seçmeden ) yazdırmak mümkünmü.
Yardımcı olursanız minnettar olurum.

saygılar...

 

[Kemal Demir]

Şöle Olabilirmi?

File>Print Area>Set Print area

Umarı istediğin budur.

Sonrada Ctrl+p yaparsan Seçili alanın Çıktısını alırsın.

 

[omerceri]

kısa yol atadığın makroya aşağıdaki kodları yazarsan
Sub Makro1()

ActiveSheet.PageSetup.PrintArea = Selection.Address
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

End Sub

 

[hypernovea]

Arkadaşlar elinize sağlık.


Sub SEC_YAZDIR()
ActiveSheet.PageSetup.PrintArea = Selection.Address
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

Sub SIFIRLA()
'
' SIFIRLA Makro
'

'
ActiveWindow.View = xlPageBreakPreview
Range("F6").Select
ActiveSheet.PageSetup.PrintArea = ""
ActiveWindow.View = xlNormalView
Range("A1").Select
End Sub

:idea: SİZLER IŞIK SAÇTIKÇA BİZ YOLUMUZU HİÇ KAYBETMEYİZ. :idea:

 

[tuncismet]

Sayın:Levent Menteşoğlu
İlginiz için çok teşekkür ederim.Ben aynı sayfada değil bir kaç sayfada yazdırma alanı belirlemek istiyorum.Teşekkürler

 

[Korhan Ayhan]

Aşağıdaki kodu deneyin.

ThisWorkBook bölümüne uygulayınız.

Kodu dosyanızın farklı olaylarına yazıp kullanabilirsiniz.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Sheets("Sayfa1").PrintArea = "A1:K100"
    Sheets("Sayfa2").PrintArea = "B1:M100"
End Sub

 

[tuncismet]

Çok teşekkür ederim.

 

[asdsxx]

Aşağıdaki kodu deneyin.

ThisWorkBook bölümüne uygulayınız.

Kodu dosyanızın farklı olaylarına yazıp kullanabilirsiniz.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Sheets("Sayfa1").PrintArea = "A1:K100"
    Sheets("Sayfa2").PrintArea = "B1:M100"
End Sub

Teşekkürler
Korhan Bey Sayfa ismi değil de o an açık olan sayfa ismi her ne ise (sayfa ismine bakmadan) belirtilen hücre aralığını yazdırabilmek için kodda nasıl bir değişiklik yapılabilir.

 

[ÖmerBey]

Merhaba,
Koddaki Sheets("Sayfa1") yerine ActiveSheet yazarak deneyiniz.

 

[asdsxx]

Merhaba,
Koddaki Sheets("Sayfa1") yerine ActiveSheet yazarak deneyiniz.

Eyvallah Ömer Bey