Excelde Yazdırma problemi

[ismailayan]

olay şuuu

sayfa1 de 3000 tane isim listesi var
sayfa2 de antedli kağıda basılacak yazım var sayın diye başlıyor..

yapmak istediğim kullanıcıya bağlı olarak hücre aralığı verilecek isim listesinden mesela a1 ile a50 arası bu satır arası isimleri sayfa2 ye sayın diye aktaracak ve print yapacak



bu konuda bana yardımcı olucak arkadaşlara ihtiyacım var


şimdiden teşşekürler

 

[Recep İpek]

Bunu Word'ün Mail Merge olayı ile rahatlıkla yapabilirsiniz.

Aşağıdaki link Mail Merge'nin toplu mail gönderimi ile ilgilidir.

Burada Print adımını kullanabilirsiniz.


http://www.excel.web.tr/showthread.php?t=19432

 

[ismailayan]

arkadaşım olayı yanlış anladın veya diğer formlar ile karıştırdın benim email atmak gibi bir problemim veya benim problemim email atmak değil.

benim problemim yazdırma problemi göndermiş olduğum örneği bakarsan anlarsın sanırım.



ama ilgilendiğin içinde çok teşekkürler...

 

[Recep İpek]

Burada Print adımını kullanabilirsiniz.

Mesajımda belirttiğim gibi Mail Mergê'nin toplu print alma olayını kullanmanızı tavsiye ettim.İlgili dosyada gerekli adımlar var.

 

[ismailayan]

pardon ben yanlış anlamışım... Dosyayı inceledinizmi acaba. VBA kodlarında yarım kalan kısım var... Yani amacım olayı makro yazarak halletmek istiyorum...

Bu konuda bana yardımcı olmanız mümkünmü...

izlediğim yol yanlışmı.. çünkü daha öncedende böyle bir istemiştim. forma yazmıştım. aama bir türlü bulamadım.

 

[Recep İpek]

Aşağıdaki kodları deneyiniz.

Yazdırılacak alanın satır numaralarını K1 ve L1 hücrelerine girebilirsiniz.

Private Sub CommandButton1_Click()
'Yazdır
Application.ScreenUpdating = False
Set s1 = Sheets(1)
Set s2 = Sheets(2)
bas = Val([K1])
bit = Val([L1])
For i = bas To bit
s2.Select
s2.Cells(5, 1).Value = "Sayın; " & Cells(i, 1).Value
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
s1.Select
Cells(i + 1, 1).Select
Next
MsgBox "Bitti"
Application.ScreenUpdating = True
End Sub