Userform üzerindeki label'i yazdırmak

[Civan Jack]

Selamlar, form üzerinde bir label var ve bu labelda şekiller var, ben bu şekli yazdırmak istiyorum nasıl yapabilirim ?

Hatta o şekli excel sayfasına da kaydedebilirse çok daha iyi olur.

Teşekkür ederim.
İyi geceler.

 

[Civan Jack]

Biri fikri olan var mı acaba ?

 

[Civan Jack]

Arkadaşlar yardımcı olabilir misiniz ?
Label'i yazdırmak istiyorum.

 

[leumruk]

Arkadaşlar yardımcı olabilir misiniz ?
Label'i yazdırmak istiyorum.

Word bağlantısı kullanarak olabilir diye düşünüyorum. Deneyebilmemiz için bir örnek dosya ekleyebilir misiniz?

 

[leumruk]

Aşağıdaki kod düzeni işinize yarayabilir. Labeli worde aktarıp yazıyı yazıcıya yolluyor ve ardından word kapanıyor.

Private Sub CommandButton1_Click()
deg = Label1.Caption
Set WD = CreateObject("Word.Application")
WD.Visible = True
Set MyDoc = WD.Documents.Add(DocumentType:=wdNewBlankDocument)
WD.Selection.TypeText Text:=deg
WD.PrintOut
WD.Application.Quit
End Sub

 

[Civan Jack]

Teşekkür ederim Mustafa bey, ama malesef olmadı. Label da çizim var, sizin kodlarınızı sanırım textleri görüyor.

Labelin olduğu alanın resmini çekebiliyor muyuz peki ? O da olabilir.

 

[leumruk]

Teşekkür ederim Mustafa bey, ama malesef olmadı. Label da çizim var, sizin kodlarınızı sanırım textleri görüyor.

Labelin olduğu alanın resmini çekebiliyor muyuz peki ? O da olabilir.

Merhaba,
Dosyanızı eklerseniz üzerinde düşünme şansımız olabilir.

 

[Civan Jack]

Merhaba Mustafa bey, 5. mesajdaki kodları denedim yazdırıyor fakat, şekiş yazıcıdan çıkmıyor.
Dhaa doğrusu önizleme yaptığımda label üzerindeki şekiller görünmüyor, boş beyaz bir sayfa çıkıyor.

Ekte çalışmayı görebilirsiniz.

 

[leumruk]

Merhaba Mustafa bey, 5. mesajdaki kodları denedim yazdırıyor fakat, şekiş yazıcıdan çıkmıyor.
Dhaa doğrusu önizleme yaptığımda label üzerindeki şekiller görünmüyor, boş beyaz bir sayfa çıkıyor.
Ekte çalışmayı görebilirsiniz.

Merhaba,
Ekteki dosyada label yerine Frame kullanarak bir çözüm ürettim.

Private Sub CommandButton1_Click()
frmlf = Frame5.Left
frmtp = Frame5.Top
UsfHgh = UserForm1.Height
UsfWdt = UserForm1.Width

Frame5.Left = 0
Frame5.Top = 0
UserForm1.Height = Frame5.Height
UserForm1.Width = Frame5.Width

UserForm1.PrintForm

Frame5.Left = frmlf
Frame5.Top = frmtp
UserForm1.Height = UsfHgh
UserForm1.Width = UsfWdt
End Sub

 

[ridvan2111]

Slm.
Bu şekilde işinizi görürmü?


dosya yeniden eklendi

 

[Civan Jack]

Hmmm. Gayet güzel Mustaf bey, teşekkür ederim.
Yalnız, resmi tam olarak göstermiyor neden acaba ?
Yarım kesiyor, resimdeki gibi.

 

[leumruk]

Hmmm. Gayet güzel Mustaf bey, teşekkür ederim.
Yalnız, resmi tam olarak göstermiyor neden acaba ?
Yarım kesiyor, resimdeki gibi.

Userformun çerçevesi kapatıyor. Userfomu enden ve boydan biraz artırırsanız sorun düzelir. Ben örnek olarak tahmini bir değer yazdım. Siz deneyerek kendinize göre ayarlayın. Aşağıdaki kırmızı alanla oynama yapın.

Private Sub CommandButton1_Click()
frmlf = Frame5.Left
frmtp = Frame5.Top
UsfHgh = UserForm1.Height
UsfWdt = UserForm1.Width

Frame5.Left = 0
Frame5.Top = 0
UserForm1.Height = Frame5.Height [COLOR="darkred"]+5[/COLOR]
UserForm1.Width = Frame5.Width [COLOR="DarkRed"]+ 5[/COLOR]

UserForm1.PrintForm

Frame5.Left = frmlf
Frame5.Top = frmtp
UserForm1.Height = UsfHgh
UserForm1.Width = UsfWdt
End Sub

 

[Civan Jack]

Tamadır Mustafa bey, çok teşekkür ederim.
Bu işimi görecektir.
Kafama takılan birşey var, bu işlem label'la yapılamıyor mu acaba ?

 

[leumruk]

Tamadır Mustafa bey, çok teşekkür ederim.
Bu işimi görecektir.
Kafama takılan birşey var, bu işlem label'la yapılamıyor mu acaba ?

Rica ederim. Labelle bu şekilde yapılamaz. Diğer nesneler labelin içine yerleşmiyor. Dolayısıyla labelle birlikte hareket etmiyor. Her nesne için yerleşim kodu yazmak gerek ki hem çok uğreştırır hem de istenilen sonucu vermeyebilir.
Frameye yerleştirilen nesneler ise sanki Framenin bir parçasıymış gibi hareket edebiliyor.

 

[Civan Jack]

Anladım Mustafa bey, ilgi ve alakanız için tekrar teşekkür ederim.
Hayırlı geceler.

 

[leumruk]

Anladım Mustafa bey, ilgi ve alakanız için tekrar teşekkür ederim.
Hayırlı geceler.

Rica ederim. İyi geceler.

 

[Civan Jack]

Rıdvan bey, yazdığınız 10. mesajı yeni farkettim kusura bakmayın.
Dosyayı indirdim fakar hasarlı dosya uyarısı geldi.

Rica etsem tekrar yükler misiniz ?

Teşekkür ederim.

 

[ridvan2111]

Rıdvan bey, yazdığınız 10. mesajı yeni farkettim kusura bakmayın.
Dosyayı indirdim fakar hasarlı dosya uyarısı geldi.

Rica etsem tekrar yükler misiniz ?

Teşekkür ederim.

Tabiki hemen dosyayı yeniden yüklüyorum.

 

[Civan Jack]

Teşekkürler Rıdavan bey.
Yalnız, dosyayı yüklemediniz sanırım.

 

[ridvan2111]

Teşekkürler Rıdavan bey.
Yalnız, dosyayı yüklemediniz sanırım.

Özür.
10. mesajdaki dosyayı güncelledim.