UserForm un kendisini yazdırmak istesek

[acebeci]

Değerli arkadaşlar UserForm un kendisini yazdırma konusunda yardıma ihtiyacım var.Formda bu konu ile ilgili neredeyse heryere baktığımı sanıyorum ama birtürlü tam istediğimi bulamadım.UserFormu yazdırırken kağıt ebadını(A5-A4 Vb.) ve sayfa yapısını(yatay-dikey) belirleyebiliyormuyuz.Forum da bu konu ile ilgili yatay yazdırma ile ilgili bir konu var ama benim ihtiyacıma tam cevap vermedi.yani bunu bir makro ile çözmek mümkün mü acaba.Şimdiden hepinize teşekkür eder çalışmalarınızda başarılar dilerim.

 

[Levent Menteşoğlu]

Aşağıdaki linki inceleyin.

http://www.excel.web.tr/f50/userformu-yatay-yazd-305-rma-t25638.html

Ayrıca forum içi arama motoruna "PrintForm" yazarak arama yapmanızıda öneririm.

 

[acebeci]

Sayın Levent Menteşoğlu ilginizden dolayı çok teşekkür ederim.Verdiğiniz linki defalarca incelemiştim sonunda biraz kendime uyarlayabildim.Şimdilik burdaki tek sorunum UserFormu A4 ün 2. yarısına yazdırıyor ilk yarısına yazdırabilsem yarım sayfa ile işimi çok güzel bir şekilde halledebileceğim bunu çözme konusunda yapılabilecek birşey varsa yardımcı olabilirseniz çok sevinirim.Teşekkür eder çalışmalarınızda başarılar dilerim

 

[acebeci]

Değerli hocalarım bu konu gerçekten benim için önemli eğer bir fikri olan varsa paylaşırsa çok sevinirim şimdiki problem daha önceki mesajımda belirttiğim gibi userformu sayfanın ilk yarısına yazdırmak isitiyorum(3 numaralı mesajımda belirttiğim gibi sayın Levent Menteşoğlu'nun veriği linkden yatay yazdırma işini halledebildim fakat sayfanın ilk yarısına yazdırmayı halledemedim)
Dosyayı da ekledim formu aç butonunu açtığımızda karşımıza çıkan formda yazdır butonuna tıklayınca yazdırıyor

 

[Husgvarna]

Buton5 altında şu bölüme
kırmızı kodları ekleyerek deneyin.

'.....
'......
With sh.PageSetup
 [COLOR="Red"].LeftMargin = Application.InchesToPoints(6.15)[/COLOR]
    .FitToPagesTall = 1
    .FitToPagesWide = 1
    .Orientation = xlLandscape
    .Zoom = False
End With
'.........
'...........

 

[acebeci]

Sizlere çok ama çok teşekkür ediyorum sizler bir harikasınız iyiki varsınız.Teşekkürler sayın Husgvarna

 

[Husgvarna]

Sizlere çok ama çok teşekkür ediyorum

Sağolun. Kolay gelsin.

 

[blackeagle78]

teşekkürler