Önizlemeden sonra 2 formun aynı anda açılması.

[İsmail Küçükşengün]

Merhabalar;

Excel gizli çalışmamda ana form 19.no.lu form. Bu formdan 16 no.lu formu
19.no.lu formun üzerine açıp aşağıdaki kodla istediğim yazının önizlemesini yapıyorum.

Private Sub CommandButton57_Click()
For a = 1 To 24
Case 24: adr = "ag85:am112"
.. . . . . . . . . . ..
. . . . . . . . . . . . .
. . . . . . . . . . . . .

End Select
Sheets("talimat").PageSetup.PrintArea = adr
Application.ScreenUpdating = False
Application.Visible = True
Application.ScreenUpdating = True
UserForm16.Hide
UserForm19.Hide

Sheets(Array("talimat")).PrintPreview
Application.ScreenUpdating = False
Application.Visible = False
Application.ScreenUpdating = True
Sheets("......").Select
UserForm16.Show
UserForm19.Show
Exit Sub
End If
Next
End Sub

Önizleme yapmadan önce 19 no.lu ana form tam ekran, 16 no.lu form ise bu 19
no.lu formun üzerinde olup, ön izleme bittikten sonra;

Yukarıdaki kod.la önce 16 no.lu açılıyor. Bu 16 no.lu kapandıktan sonra
19 no.lu ana form ekrana geliyor.

SORUNUM:

Önizleme bittikten sonra, tıpkı önizlemeden önce olduğu gibi, 19 no.lu form ve
onun üzerinde 16 no.lu form, aynı açılabilmesi (gelmesi) için yukarıdaki kodda
ne gibi değişiklik uygun olur.

Şimdiden teşekkürlerimle.

 

[İsmail Küçükşengün]

Arkadaşlar;

Bu konuda bir öneri getirecek yok mudur?