• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Baskı Önizleme Sorunu

  • Konbuyu başlatan Konbuyu başlatan mhgle
  • Başlangıç tarihi Başlangıç tarihi
M

mhgle

Katılım
25 Mayıs 2022
Mesajlar
11
Excel Vers. ve Dili
2024 TR 64 Bit
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
 
Merhaba,

Formu Hide ettiğiniz için sorun yaşıyor olabilirsiniz.
 
frm2yan.hide kaldırdığımda doğru sonucu veriyor. Fakat form baskı önizlemenin önünde duruyor ve alt+F4 dışında çıkamıyorum.
 
Sorun yaşadığınız örnek dosyanızı paylaşırsanız deneme yapabiliriz.
 
Paylaştığınız dosyada ben sorun göremedim. İlk mesajda paylaştığınız şekilde denedim.
 
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.
 
Ben bahsettiğiniz sorunu yaşamadım...

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

Kodu bu şekilde değiştirip deneyiniz.

C++: 
Private Sub CommandButton5_Click()
    Sheets("2liyan").Select
    frm2yan.Hide
    Calculate
    ActiveWindow.SelectedSheets.PrintPreview
    Sheets("Giriş").Select
    frm2yan.Show
End Sub
 
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?
 
Sırasıyla aşağıdaki değişiklikleri yaparak test ediniz.

Modül1 deki kodu revize ediniz.
C++: 
Sub giris()
    Application.Calculation = xlCalculationAutomatic
    frm_ANA.Show
End Sub

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

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

frm4;
C++: 
Private Sub CommandButton5_Click()
    frm4.Hide
    Calculate
    Worksheets("4lü").PrintPreview
    Sheets("Giriş").Select
    frm4.Show
End Sub
 
İşlemi yaparken video çekip paylaşmanız mümkün mü? Gözümüzden birşey kaçıyor sanırım.
 
Maalesef yine olmuyor. 2. de görüntülenecek artık ne yapalım.
Emeğinize sağlık. Teşekkür ederim.
 
Üstadım Elinize emeğinize sağlık. çok güzel oldu. Teşekkür ederim.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst