Userform içinde multipage

[Halit TÜRK]

Merhabalar..

Userform içinde page1 ve page 2 (iki sayfa) multipage hazırladım. Her iki sayfa içinde de baskı önizleme ve yazdır butonları bulunmaktadır. Sorunum ise userform show olarak page1 veya page2 açılmış ise, diğer sayfadan baskı önizleme ve ya yazdır butonuna basıldığında açılış sayfasına dönüyor. Hangi sayfadan önizleme veya yazdıra basıllırsa o sayfa show olarak geri gelmesini istiyorum. Yardımcı olacak arkadaşlara şimdiden teşekkür ediyorum..

Saygılar..

 

[Mahmut Kök]

önizleme veya yazdırma makrosunda, kodların başına


userform.hide


kodlarınızı bu satırın altına yazın. En son satıra da

userform.show



yazmayı deneyin..

 

[Tankut SAZLI]

Şöyle bir öneri:
Projenize bir listbox ekleyin.

Private Sub UserForm_Initialize()
    On Error Resume Next

    Dim i As Integer
    For i = 1 To Worksheets.Count
        ListBox1.AddItem Worksheets(i).Name
    Next i
    
End Sub

Private Sub baskionizleme_Click()
If ListBox1.Text = "" Then MsgBox "Önce bir Sheet seçiniz!", vbExclamation: Exit Sub
On Error GoTo hata
Dim a As String
a = ListBox1.Text
Unload Me

Worksheets(a).PrintPreview
GÖSTERECEĞİNİZFORM.Show
Exit Sub
hata:
MsgBox "Bilgisayarınıza yüklü bir yazıcı algılanamadı.Lütfen bir yazıcı yükleyip tekrar deneyin...", vbOKOnly
End Sub
Private Sub yazdir_Click()
If ListBox1.Text = "" Then MsgBox "Önce bir sheet seçiniz!", vbExclamation: Exit Sub
On Error GoTo hata

Dim a As String
a = ListBox1.Text
Unload Me

Worksheets(a).PrintOut
GÖSTERECEĞİNİZFORM.Show
Exit Sub
hata:
MsgBox "Bilgisayarınıza yüklü bir yazıcı algılanamadı.Lütfen bir yazıcı yükleyip tekrar deneyin...", vbOKOnly
End Sub

 

[Halit TÜRK]

Dosya eklidir..
1 Ad. Userform üzerinde Multipage yerleştirilmiş ve multipage içinde page1 ve page2 olarak iki sayfa bulunuyor. Userform hangi şekilde açılırsa diğer sayfaya geçildiğinde baskı önizleme ve yazdır butonlarına basılırsa ilk açılan sayfaya dönüyor.. Bütün veriler Sayfa1 den alınıyor, Yazdır ve Yazdır1 Sayfalarına yazdırılıyor.. Aşağıdaki kodlarda hangi değişiklik sorunumu çözebilir..

 

[Mahmut Kök]

kodların başına

userform1.hide

yazacaksınız, ama bunu "unload me" nin yerine yazacaksınız. Yani kodlarınızda "unload me" bulunmayacak.


Öyle deneyiniz.

 

[Halit TÜRK]

Sayın, mesleki

Sorunum hallolmuştur, çok çok teşekkürler... Altı aydır üyeyim ve bu zamana kadar öğrendiklerimle bu duruma getirmiştim... Son nokta için size minnettarım... Ayrıca cevap yazan Tankut SAZLI 'ya da teşekkür ederim..

Herşey gönlünüzce olsun...

 

[Tankut SAZLI]

Sayın htrk:
Özeldeki mesajını yeni alsım.Tam incelemek üzereydimki,sorununuzu çözmüş olduğunuzu gördüm.
Ayrıca katkım(ız) olduysa ne mutlu:tşekkür ederim:
iyi çalışmalar: