Resim Yenilenmiyor

[cepola]

Arkadaşlar ekte gönderdiğim dosyaya göre benim sıkıntım şu. 100 lerce personel bilgisi olacak ben bunları bir buton ile yazdırcam ancak bu personellerin resimlerini dışardaki dosyadan çağırıyo personel formuna ekliyor. Yazdır düğmesine bastığımda bilgilerini ve dışardan kişinin resmini getirecek ve ne kadar personel varsa hepsini yazdıracak.

Benim takıldığım nokta yazdır dediğimde bilgileri geliyor ancak 1.sıradaki personelin resmi kalıyor resim tazelenmiyor yani refresh yapmıyor sorun nerde bi bakarmısınız.

 

[halit3]

bu konuda bir çok örnek var sistemde birazcık kontrol etseniz bunlardan birisi sizin mutlaka ihtiyacınıza cevap verecektir. göndermiş olduğun dosyayı yaptım ancak resimlerin adını sayı olarak yapma resim dosyasındaki resimleren adını proğramındaki isimlerle aynısını yap iyi günler

 

[cepola]

O konuda bi çok örnek var doğru söylüyosun ama okumamışsın heralde benim sorumu bi combobox ekleyip yollamışsın tek tuşla bütün bilgileri çağırmasını ve bütün kişilere ait formları yazdırmasını istiyorum demiştim. Sen ise combobox eklemişsin tek tek adam seçip yazdır dedirtiyon ben bunu istemiyorum.

 

[halit3]

bu kodu dene


Private Sub CommandButton1_Click()
For i = 2 To WorksheetFunction.CountA(Worksheets("vert").Range("B2:B5000")) + 1
If Worksheets("vert").Cells(i, 2).Value > "" Then
Worksheets("cikti").Cells(2, 4).Value = Worksheets("vert").Cells(i, 2).Value

RESIMLERIBUL_Click
Sheets("cikti").PrintPreview
End If
Next i
End Sub

 

[cepola]

oda olmadı kardeş

 

[halit3]

bunu dene

Private Sub CommandButton1_Click()
Dim j As Integer
For i = 2 To WorksheetFunction.CountA(Worksheets("vert").Range("B2:B5000")) + 1
If Worksheets("vert").Cells(i, 2).Value > "" Then
Worksheets("cikti").Cells(2, 4).Value = Worksheets("vert").Cells(i, 2).Value
RESIMLERIBUL_Click
For j = 1 To 3
DoEvents
Next j

Sheets("cikti").Select
MsgBox "yazılıyor"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("vert").Select
'Sheets("cikti").PrintPreview
End If
Next i
End Sub

 

[halit3]

buda oluyor

Private Sub CommandButton1_Click()
Dim j As Integer
For i = 2 To WorksheetFunction.CountA(Worksheets("vert").Range("B2:B5000")) + 1
If Worksheets("vert").Cells(i, 2).Value > "" Then
Worksheets("cikti").Cells(2, 4).Value = Worksheets("vert").Cells(i, 2).Value
RESIMLERIBUL_Click
For j = 1 To 3
DoEvents
Next j
Sheets("cikti").PrintPreview
End If
Next i
End Sub

 

[cepola]

RESIMLERIBUL_Click ne burdaki yeni bi düğme daha mı ekledi çalışmıyo bu kodda burayı silincede öncekinden bir farkı olmuyo

 

[halit3]

kendi dosyanı gönderiyim