listedeki verilerin sırayla forma aktarılması

[tienshan]

Değerli üstadlar
sizce çok kolay olduğuna emin olduğum fakat ben içinden çıkamadığım sorunum şöyledir:
listedeki verilerin tek tek ve/veya topluca yazıcı çıktısı alınacak bir forma aktarılmasını istiyorum..
örnek tablo ektedir.
amacım her hasta için ayın hangi günü tedavi aldığının görüntülenmesidir.
yardımlarınız için şimdiden teşekkür ederim.

 

[tienshan]

Değerli üstadlar
yardımcı olabilecek yok mu acaba?

 

[tienshan]

belki konu başlığı fazla ilgi çekmedi bilemiyorum..
en azından yol göstermenizi ümit ederdim. teşekkürler

 

[tienshan]

kendim uğraşıp kod kullanmadan birşeyler yaptım..

listedeki verileri ayrı ayrı çağırıp yazdırmak mümkün, fakat tümünü birden nasıl yazdırırız.. yardımınızı bekliyorum.

kafa yormaya devam ediyorum..

 

[tienshan]

kendi çalışmamı paylaşmak istedim.
tüm listeyi belirlediğim klasöre kopyalayıp, forumdan edindiğim PDF Creator ile pdf belgesi yaptım. istediklerimin veya tümünün yazıcı çıktısı alabildim..

Sub tekrar()
Dim x As Integer
For x = 3 To Cells(2, 1).Value + 2
[h2] = Cells(x, 1)
ActiveWorkbook.SaveAs Filename:=Cells(1, 2), _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Next x
MsgBox prompt:=[x] - 3 & " kayıt tamamlandı"
End Sub