boş satıra kadar yazdırma

[alcen]

Excel de yazdır butonu içini dolduruyorum..
filtrelenmiş verilerim var yani satır sayısı belli değil verilerin boş satıra kadar yazmasını istiyorum...
yardımlarınız için şimdiden teşekkür ederim...

 

[Huseyinkis]

Ekteli linki inceleyin.

http://www.excel.web.tr/f48/yazdyrma-t15701.html

 

[alcen]

Benim yazdırma alanımda belli değil ama..
bazen 10 olabilir bazen 1000

 

[Huseyinkis]

Benim yazdırma alanımda belli değil ama..
bazen 10 olabilir bazen 1000

ActiveSheet.PageSetup.PrintArea = "$A$2:$C$" & [a65536].End(3).Row


Yukarıdaki formul A2 hücresi ile A hücresinin en son dolu hucresine kadar seçer yani en son veri A500 de ise sonrasını yazdırmaz.

Linkteki formulleri kendi dosyanıza göre uyarlamanız yeterli olacaktır.

Yukarıdaki formul A2 ile C son dolu hucre arasını seçmiş.

 

[alcen]

çok teşekkür ederim bilgileriniz için.....
peki sayfayı nasıl yatay olarak ve aktif sütunlarını sığdırarak çıktısını alabiliriz...

 

[alcen]

bu kodla yatay olarak çıktı alabiliyorum ama
sütun genişliğini ayarlayabileceğim bir kod arıyorum...

ActiveSheet.PageSetup.Orientation = xlLandscape

 

[alcen]

GÜNCEL
Arkadaşlar yardım edin....

 

[Huseyinkis]

bu kodla yatay olarak çıktı alabiliyorum ama
sütun genişliğini ayarlayabileceğim bir kod arıyorum...

ActiveSheet.PageSetup.Orientation = xlLandscape

Sutun genişliğini ayarlamak?

Excel Görünümünde yazıdırken sadece sayfaya sığdır veya %30 kücült gibi işlemleri yapabilirsiniz sutun genişlikleri Excel içerisinden gelir. Yazdırırken sutun genişliklerini yine excel uzerinden yapıp tekrar eski haline getirecek bir formulmu arıyorsunuz?

 

[Murat OSMA]

Sn. alcen'in kodları şu şekilde;

Private Sub CommandButton10_Click()
aciklama = "Sayfayı Yazdırmak İster misiniz?"
If MsgBox(aciklama, vbOKCancel) = vbOK Then
ActiveSheet.PageSetup.Orientation = xlLandscape
ActiveSheet.PageSetup.PrintArea = "$A$3:$AN$" & [a65536].End(3).Row
Application.Dialogs(xlDialogPrinterSetup).Show
    ''


    
    ActiveWindow.View = xlPageLayoutView
    Columns("A:AG").Select

    
    Selection.ColumnWidth = 4.14
    
    ''
ActiveSheet.PrintOut

ActiveWindow.View = xlNormalView
Selection.ColumnWidth = 20
 Range("B8").Select
Else
MsgBox "Yazdırma İşlemi İptal Edildi..."
End If
End Sub

 

[alcen]

evet kodlarım yukarıdaki gibi asıl sorunum ne şimdi anladım beyler..
Ben bunun çıktısını alıyorum ama kodlarda da görüldüğü gibi boş satıra kadar alıyorum...
Bunu ayarlıyorum sonrada sayfayı yatay yapınca algıladığı satır sayısı değişmediği için boş sayfalarında çıktısını alıyorum....
Yani bana 3 ken 6 kağıtta çıktı vermiş oluyor...
bunların 3'ü boş...
Sorum tamamen değişti ama kusura bakmayın........

 

[alcen]

evet kodlarım yukarıdaki gibi asıl sorunum ne şimdi anladım beyler..
Ben bunun çıktısını alıyorum ama kodlarda da görüldüğü gibi boş satıra kadar alıyorum...
Bunu ayarlıyorum sonrada sayfayı yatay yapınca algıladığı satır sayısı değişmediği için boş sayfalarında çıktısını alıyorum....
Yani bana 3 ken 6 kağıtta çıktı vermiş oluyor...
bunların 3'ü boş...
Sorum tamamen değişti ama kusura bakmayın........

Kusura bakmayın arkadaşlar bu sorun sütun aralığını yanlış aldığım içinmiş.
AN yerine AG ye kadar olacaktı düzeltince oldu..
iyi günler..