Soru Userformu görev çubuğuna alma

[Orion1]

Dropboxa yüklemeyin.
Başka bir upload sitesine yükleyin.
Orada Download yazıyor ama neyi download edecek onu belirtmiyor.Bende çekindiğim için çalıştırmadım.

 

[FERAZ]

Dropboxa yüklemeyin.
Başka bir upload sitesine yükleyin.
Orada Download yazıyor ama neyi download edecek onu belirtmiyor.Bende çekindiğim için çalıştırmadım.

Benim kullandığım bulut dosya saklama yeri Dropbox.5gb ye kadar beleş
Ve forum için dropboxa yüklememin sebebi dosyanın silinmemesi vs...
Ve internet sayfasının en üstünde ... var yanında dosya ismide yazıyor ve şekil olarakta çıkıyor exelin içeriği.
Yinede upload sitesine yüklerim.
Aslında bir userform ve içine bir buton eklerseniz ve koduda eklerseniz son verdiğim olanı aynı olay.
Benim pc başına geçmem biraz uzayabilir.

 

[Orion1]

Denedim.
Bendede olmadı.

 

[FERAZ]

Denedim.
Bendede olmadı.

İşte olmadığı için useformu Api gi

Denedim.
Bendede olmadı.

İşte olmadığı için useformu Api yada başka yöntemle görev çubuğuna getirtmeui planlamıştım galibada olmayacak bu iş

 

[Haluk]

Aşağıdaki gibi bir kod bu işi görür....

UserForm'u gizler, ön izemeyi gösterir, siz ön izlemeyi kapatınca UserForm tekrar ortaya çıkar.

Private Sub CommandButton1_Click()
    Me.Hide
    ActiveSheet.PageSetup.PrintArea = Range("A1:A100").Address
    ActiveWindow.SelectedSheets.PrintPreview
    Me.Show
End Sub

Koddaki yazdırma alanı (A1:A100) kısmını kendinize göre değiştirirsiniz...

.

 

[FERAZ]

Aşağıdaki gibi bir kod bu işi görür....

UserForm'u gizler, ön izemeyi gösterir, siz ön izlemeyi kapatınca UserForm tekrar ortaya çıkar.

Private Sub CommandButton1_Click()
    Me.Hide
    ActiveSheet.PageSetup.PrintArea = Range("A1:A100").Address
    ActiveWindow.SelectedSheets.PrintPreview
    Me.Show
End Sub

Koddaki yazdırma alanı (A1:A100) kısmını kendinize göre değiştirirsiniz...

.

Application.CommandBars.ExecuteMso ("PrintPreviewAndPrint")

Bu kod için userform gizlenip önizlemeden sonrada tekrar userform çıkmalı piyasaya Haluk hocam.
Normal önizleme kodu zaten sorun olmuyor.
Yani het iki önizleme farklı yerler.

 

[Haluk]

Şimdi anladım ... ama tuhaf bir istek

.

 

[FERAZ]

Şimdi anladım ... ama tuhaf bir istek

.

Aslında tek istediğim userform açılışında yada butona basınca userformun görev çubuğunda görükmesi sadece
Me.hide olayı olmadan

 

[Haluk]

UserForm'u minimize etmekte amacınız nedir?

.

 

[Zeki Gürsoy]

Ufak bir hatırlatma... Hide metodundan sonra Show metodu kullanıldığında Userform Activate olayı tekrar tetiklenir. Bu olayın altında da form şekillendiren kod satırları mevcut.

 

[FERAZ]

UserForm'u minimize etmekte amacınız nedir?

.

18.mesajda normalde önizleme çıkınca userform minimize almalı yani tüm kaybolmadan çubukta görükmeliki yazdırınca tekrar userformu açabileyim ekrana.

 

[FERAZ]

Ufak bir hatırlatma... Hide metodundan sonra Show metodu kullanıldığında Userform Activate olayı tekrar tetiklenir. Bu olayın altında da form şekillendiren kod satırları mevcut.

Application.CommandBars.ExecuteMso ("PrintPreviewAndPrint")
Bu kodu nasıl uyarlayabilirz hide ile show arasına?

 

[Haluk]

O zaman sayfaya 2 tane buton koyun, Birincisi UserForm'u gizlesin ve yazdırma ekranını getirsin, işiniz bitince öbürünü tıklayın UserForm geri gelsin.

Olmuyor mu?

.

 

[FERAZ]

Neyse ben vazgeçtim.
Sanırım sorumun cevabı yok.Olmadı kladik önizlemeyi kullanacağım.
Cevap yazan herkese teşekkürler.

 

[Haluk]

Ya da; UserForm'un ShowModal özelliğini False yapın, bahsettiğiniz yazdırma ekranı geldiğinde UserForm'u kenara çekip, işlemlerinizi yapın.

Bunlar, API kullanmaktan daha basit çözümler.

.

 

[FERAZ]

Ya da; UserForm'un ShowModal özelliğini False yapın, bahsettiğiniz yazdırma ekranı geldiğinde UserForm'u kenara çekip, işlemlerinizi yapın.

Bunlar, API kullanmaktan daha basit çözümler.

.

Öyle değilde hani userform aşağı inmiyor Api ilede minimize işareti çıkarttık diyelim ve o işarete basınca görev çubuğunda dursa tam olacak fakat denemeletimde o preview olayından görev çubuğundada görükmüyor ne hikmetse.

 

[Haluk]

Görev çubuğunda ayrı bir ikon olarak görünmez, oradaki Excel grubunun içindedir. İmleci Excel grubunun üzerinde biraz bekletince görebilmeniz lazım.

.

 

[FERAZ]

Görev çubuğunda ayrı bir ikon olarak görünmez, oradaki Excel grubunun içindedir. İmleci Excel grubunun üzerinde biraz bekletince görebilmeniz lazım.

.

Evet normalde görüküyor imleç ile zerine varınca fakat önizleme kodu eklenince görükmüyor.Sonra tekrar bir denerim.

 

[FERAZ]

Application.CommandBars.ExecuteMso ("PrintPreviewAndPrint") bu kod çok gereksizmiş
Aslında showmodalı false yapınca sorun olmuyormuş lakin tekrar true yapmak için ayarlara girmek gerekiyor.
Sonuç olarak normal prientpreiew olayını kullanacağım.

Araştırırkende userform açıkken Showmodalı flase ve true yapan kodları buldum şansa buda Api
Umarım birilerine yarar kod.

Herkese kolay gelsin.

#If VBA7 Then
  Private Declare PtrSafe Function EnableWindow Lib "user32" (ByVal hWnd As LongPtr, ByVal fEnable As Long) As Long
#Else
  Private Declare Function EnableWindow Lib "user32.dll" (ByVal hWnd As Long, ByVal fEnable As Long) As Long
#End If
 
Const Modal = 0, Modeless = 1
 
Private Sub CommandButton1_Click()
  EnableWindow Application.hWnd, Modeless 'False showModal
End Sub
 
Private Sub CommandButton2_Click()
    EnableWindow Application.hWnd, Modal 'True showModal
End Sub

 

[Haluk]

API kullanmak antibiyotik kullanmak gibidir .... Sadece ve sadece gerektiği zaman, gerektiği kadar kullanmak gerekir.

Fazlası, bünyeye (Excel'e) zarar verir....

.

İşte şimdi antibiyotiği gerekli dozda kullandınız, güzel oldu ....

Gerçi, ShowModal özelliğini en başta False yaptıktan sonra tekrar True yapmaya neden ihtiyaç duyuyorsunuz, bilmiyorum..... Bence o işe de gerek yok.

.