Baskı Önizleme Sorunu

[mhgle]

Merhabalar,
combobox lara girdiğim değerleri sayfada ilgili yerlere alıyor fakat baskı önizleme yaptığımda eski değerleri veriyor ikinciye tekrar çalıştırdığımda girdiğim değerleri veriyor.
Sayfayı yeniliyor aslında ama baskı önizleme bunu algılamıyor ilk seferde nasıl bir yol izlemeliyim.

Private Sub CommandButton5_Click()
frm2yan.Hide
Sheets("2liyan").Select
ActiveWindow.SelectedSheets.PrintPreview
Sheets("Giriş").Select
frm2yan.Show

End Sub

 

[Korhan Ayhan]

Merhaba,

Formu Hide ettiğiniz için sorun yaşıyor olabilirsiniz.

 

[mhgle]

frm2yan.hide kaldırdığımda doğru sonucu veriyor. Fakat form baskı önizlemenin önünde duruyor ve alt+F4 dışında çıkamıyorum.

 

[Korhan Ayhan]

Sorun yaşadığınız örnek dosyanızı paylaşırsanız deneme yapabiliriz.

 

[mhgle]

İndir ETİKET 2026 024 xlsm

Dosyayı indir ETİKET 2026 024 xlsm

dosya.co

 

[Korhan Ayhan]

Paylaştığınız dosyada ben sorun göremedim. İlk mesajda paylaştığınız şekilde denedim.

 

[mhgle]

ilk açılışta sayfadaki değerler varken formu açıyorum combobox a yeni veriler seçip yazdır diyorum, ilk açılıştaki sayfayı görüntülüyor. Baskı önizlemeyi kapatıp tekrar yazdır dediğimde seçtiğim verileri bu sefer getiriyor. yani hep böyle devam ediyor.
Baskı önizlemeyi kapatıp tekrar çalıştırırsak olur diye düşünüyorum. ama nasıl yapılacak bilmiyorum.

 

[Korhan Ayhan]

Ben bahsettiğiniz sorunu yaşamadım...

Belki sizde hesaplama yöntemi ELLE şeklinde kalmış olabilir.

Kodu bu şekilde değiştirip deneyiniz.

Private Sub CommandButton5_Click()
    Sheets("2liyan").Select
    frm2yan.Hide
    Calculate
    ActiveWindow.SelectedSheets.PrintPreview
    Sheets("Giriş").Select
    frm2yan.Show
End Sub

 

[mhgle]

yok olmuyor. dosyayı yeniden açtığımda aynen devam ediyor.
ilgili sayfa açıkken formda yaptığım değişiklikler aynen aktarılıyor sayfaya ama ön izlemede bir önceki değerler geliyor.
ActiveWindow.SelectedSheets.PrintPreview
bu işlem olduktan sonra önizleme ekranını kapatıp tekrar açabilirmiyiz öyle bişey var mıdır acaba?

 

[Korhan Ayhan]

Sırasıyla aşağıdaki değişiklikleri yaparak test ediniz.

Modül1 deki kodu revize ediniz.

Sub giris()
    Application.Calculation = xlCalculationAutomatic
    frm_ANA.Show
End Sub

frm2alt;

Private Sub CommandButton5_Click()
    frm2alt.Hide
    Calculate
    Worksheets("2lialt").PrintPreview
    Sheets("Giriş").Select
    frm2alt.Show
End Sub

frm2yan;

Private Sub CommandButton5_Click()
    frm2yan.Hide
    Calculate
    Worksheets("2liyan").PrintPreview
    Sheets("Giriş").Select
    frm2yan.Show
End Sub

frm4;

Private Sub CommandButton5_Click()
    frm4.Hide
    Calculate
    Worksheets("4lü").PrintPreview
    Sheets("Giriş").Select
    frm4.Show
End Sub

 

[mhgle]

Verdiğiniz düzenlemeleri yaptım ama aynı sorun devam ediyor.

İndir ETİKET 2026 026 xlsm

Dosyayı indir ETİKET 2026 026 xlsm

dosya.co

 

[Korhan Ayhan]

İşlemi yaparken video çekip paylaşmanız mümkün mü? Gözümüzden birşey kaçıyor sanırım.

 

[mhgle]

İndir etiket mp4

Dosyayı indir etiket mp4

dosya.co