current region'ı yazdırma alanı olarak belirlemek

[Marco]

Merhaba arkadaşlar


satır = Application.WorksheetFunction.Match(CLng(Date), [k1:k65536], 0)
Cells(satır, 11).Select
ActiveCell.CurrentRegion.Select

Yukarıda bulunan ve seçilen current regionı yazdırma alanı olarak belirlemek için ne yapmalıyım

 

[Levent Menteşoğlu]

Aşağıdaki şekilde deneyin.

ActiveSheet.PageSetup.PrintArea = cells(satır,11).CurrentRegion.Address

 

[Marco]

Sayın Leventm;
Teşekkür ederim 1 sorum daha olacaktı. Aktif sayfayı yatay hale getirmek için aşağıdaki kodu yazdım. object hatası verdi. ne yapmak gerekir?

ActiveSheet.PageSetup.XlPageOrientation = xlLandscape

 

[Haluk]

ActiveSheet.PageSetup.Orientation = xlLandscape

 

[Marco]

Teşekkür ederim Sn raider



Böyle ufak tefek hatalarımızla üstatların vaktini alıyoruz ama acemilik işte elimiz hala daha titriyo kod yazarken

 

[Marco]

Tekrar merhaba

Yukarıda yazmaya çalıştığım makro bir raporu hazırlayacak ve print preview olarak karşımıza getirecek. kontroller userform üzerinde. Print preview oluyor fakat userform printpreview ekranının üzerinde kaldığı için herhangi bi şey yapılamıyor çıktı alınamıyor. Bi fikri olan var mı arkadaşlar?

 

[Levent Menteşoğlu]

Userform üzerine yazdırma için bir buton daha koyun ve aşağıdaki kodu o butona yazın.

ActiveSheet.PrintOut

 

[Marco]

Leventm

o yöntemi denedim olmuyor. sorun şu print preview ekranı ve üstünde userform görünüyor sonra kitlenip kalıyorum. manuel olarak formu da kapatamıyorum pr. pre. ekranını da.

 

[cako]

userformun show.modal özelliği false mı yapılmalı yoksa. Denemedim.

 

[Marco]

yaptım olmadı.

pr. prvw. ekranında da kod sayfasında da işlem yapamıyorum ctrl+alt+dlt oluyor sonumuz.

 

[Levent Menteşoğlu]

printpreview komutundan sonra "unload me" yazarak userformun kapanmasını sağlayın.

 

[Marco]

değişen bir şey olmuyor. Dosyayı baştan inceleyeceğim. sonuç alırsam size de haber verecem :kafa: :?

 

[Marco]

Leventm

print privewden önce userform1.hide yaptım düzeldi. Teşekkür ederim