Userform'da Baskı Önizleme

[DeliBalta58]

Userform üzerinde "Baskı Önizleme" yaptırmak istiyorum.
Yanlız normal sayfada yaptığımız gibi Baskı Önizlemeyi userformda yaptırmak.
Bu işlemi nasıl yapabilirim.
Dosyam ekte.

 

[Levent Menteşoğlu]

Ekli dosyayı inceleyin.

 

[DeliBalta58]

Elinize sağlık.

Sayın Leventm;
Yazılar çok küçük geliyor, okunamıyor. Resmi biraz daha büyük alıpta
kaydırma çubuğu ile yukarı aşağı sağa sola kaydırma imkanı varmı acaba

 

[Levent Menteşoğlu]

Ekli dosyayı inceleyin.

Not: Bu sorunuz benim içinde iyi oldu, bir çalışmamda bende aynı uygulamayı kullanacağım.

 

[DeliBalta58]

Teşekkürler. Çok güzel olmuş.
Emeğinize sağlık

Frameye kaydırma çubugunu nasıl eklediniz.
Alt kısımada Kaydırma çubuğu ekleyebilirmiyiz.

 

[enteresan]

Teşekkürler. Çok güzel olmuş.
Emeğinize sağlık

Frameye kaydırma çubugunu nasıl eklediniz.
Alt kısımada Kaydırma çubuğu ekleyebilirmiyiz.

Haddim olmayarak bu soruya ben cevap vermek istedim.

Userform üzerinde frame'i seçtiğimizde sol taraftaki özellikler bölümünde alt tarafa doğru scroll yazan yer var. Onun karşısındaki değerler ile kaydırma çubuğu ekleyebilirsiniz.
Alt kaydırma çubuğunu da oradan ekleyebilirsiniz. Lakin sanırım makrodaki fotoğraf boyutundan dolayı olacak ki, kaydırma çubuğu çıkmıyor. Yani Fotoğraf boyutu Frame ile enlemesine olarak aynı orantıda olduğundan olmalı ki alttaki kaydırma çubuğu çıkmıyor.

Eğer Leventm hocam bi açıklama yaparsa daha iyi olur tabii ki. Saygılarımla..

 

[Levent Menteşoğlu]

Haddim olmayarak bu soruya ben cevap vermek istedim.

Userform üzerinde frame'i seçtiğimizde sol taraftaki özellikler bölümünde alt tarafa doğru scroll yazan yer var. Onun karşısındaki değerler ile kaydırma çubuğu ekleyebilirsiniz.
Alt kaydırma çubuğunu da oradan ekleyebilirsiniz. Lakin sanırım makrodaki fotoğraf boyutundan dolayı olacak ki, kaydırma çubuğu çıkmıyor. Yani Fotoğraf boyutu Frame ile enlemesine olarak aynı orantıda olduğundan olmalı ki alttaki kaydırma çubuğu çıkmıyor.

Eğer Leventm hocam bi açıklama yaparsa daha iyi olur tabii ki. Saygılarımla..

Sn enteresan açıklamalarınız nedeniyle teşekkür ederim. Sadece küçük bir ilave yapmak istiyorum frame nesnesinde scrollbarın çıkması için scrollheight özelliğine atanacak değer frame nesnesinin yüksekliğinden büyük olmalıdır. Bu değeri fotoğrafın yüksekliğine göre ayarlayabilirsiniz.

Not: Aynı ayar scrollwidth değeri içinde geçerlidir.

 

[DeliBalta58]

Teşekkürler, hemen yukarıda ekli kitapda bir deneme yapayım.

 

[exam77]

Sayın levent hocam, ince bir düşünceyle çözmüşsünüz. Gerçekten tebrikler.

Peki bu baskı önizleme işini kağıt boyutuna göre ayarlama şansımız varmı.

Ne dersiniz daha güzel olmaz mı ?

 

[DeliBalta58]

Hem yatay Hem dikey kaydırma çubugu yapmak istiyorum.
ScrollBars seçenegini "3-fmScrollBarsBoth"
yaptım . Butonları koydu ama çalıştırınca kaydırma işlemini yapmadı.

 

[DeliBalta58]

Tamam . Sıkıntıyı hallettim.

 

[serdarinho43]

peki userformdaki br butonla herhengi bir sayfaya önizleme yapabilirmiyiz

 

[serdarinho43]

baskı önizlemeyi yapıyor ama form kapanmıyor ben baskı önizleme yaptığımda formun kapanmasını önizlemeyi kapattığımda tekrar forma dönmesini istiyorum

 

[3641]

Userforum'da Baskı Önizleme Çalışması elinde olan varmı,

Paylaşırsanız sevinirim.

 

[İhsan Tank]

Userforum'da Baskı Önizleme Çalışması elinde olan varmı,

Paylaşırsanız sevinirim.

merhaba
ekli dosyayı inceler misin

Private Sub CommandButton1_Click()
Unload Me
ActiveSheet.PrintPreview
UserForm1.Show
End Sub

not : kod halit3 Uzman'dan Alıntıdır.

 

[yerbakili]

Benim de bu konuda bir sıkıntım var. Çalışma kitabımı visible özelliği ile açıp ilk açılışta userform ile karşılaşmamı sağlıyorum. Hâl böyle olunca sayfa önizleme için koyduğum butonda da bir işlev olmuyor excel gizli olduğundan. Sayfa önizleme yerine atıyorum sayfa3 isimli sayfamı ayrı bir userform ile açmam mümkün müdür acaba?

Temsili resim:

 

[Levent Menteşoğlu]

Sayfayı userform üzerinde açmak çok olası bir uygulama değil. Ancak aşağıdaki gibi bir mantıkla sayfa özinleme yapabilirsiniz.

Application.Visible = True
Me.Hide
Sheets("sayfa1").PrintPreview
Application.Visible = False
Me.Show

 

[Zeki Gürsoy]

Form üzerinde spreedsheet nesnesi ile gösterim de diğer bir yoldur.

 

[Seyit Tiken]

Levent bey, şöyle bir yol izlense yapılması olası mı? Yöntem şu : Önizlemede çıkacak alan, resim olarak kopyalanırsa ve bunu JPG veya Bit Eşlem olarak kaydedilirse ve bunu UserForm üzerine ilgili nesneye getirebilirsek sonuca ulaşabilecek miyiz? Tabii bunlar kod yazılarak yapılacak, teşekkür ediyorum.

 

[yerbakili]

Sayfayı userform üzerinde açmak çok olası bir uygulama değil. Ancak aşağıdaki gibi bir mantıkla sayfa özinleme yapabilirsiniz.

Application.Visible = True
Me.Hide
Sheets("sayfa1").PrintPreview
Application.Visible = False
Me.Show

Levent Bey, dediğiniz gibi oldu. Çok teşekkür ederim bilgilendirme için.