Makbuzlar sürekli forum hocam.

ozaman sana başka bir öneride bulunabilirim.
ama biraz uğraştırabilir seni.

Open "Lpt1:" For Output As #1
......
.........
.......
Close #1

Rapora liste kutusu ekledim. Liste kutusundaki veriler metin kutularına aktarılıyor. Max 5 satır.

Raporun tekrar düzenlenmesi gerekli.

Toplam alanının çalışması için sledgeab hocanın eklediği örnekteki raporun kodlarını aşağıdaki ile değiştirin.

Private Sub Ayrıntı_Format(Cancel As Integer, FormatCount As Integer)

   

   Me.GELİR_TÜRÜ = Me.Liste.Column(0, 0)

   Açılan_Kutu48 = Me.Liste.Column(0, 1)

   Açılan_Kutu50 = Me.Liste.Column(0, 2)

   Açılan_Kutu52 = Me.Liste.Column(0, 3)

   Açılan_Kutu54 = Me.Liste.Column(0, 4)

   GELİR_MİKTARI = Val(Me.Liste.Column(1, 0))

   Metin49 = Val(Me.Liste.Column(1, 1))

   Metin51 = Val(Me.Liste.Column(1, 2))

   Metin53 = Val(Me.Liste.Column(1, 3))

   Metin55 = Val(Me.Liste.Column(1, 4))

   

End Sub



Private Sub RaporAltbilgisi_Format(Cancel As Integer, FormatCount As Integer)

Me.GenelToplam = Me.GELİR_MİKTARI + Me.Metin49 + Me.Metin51 + Me.Metin53 + Me.Metin55

End Sub

Değerli üstadlar yardımlarınız için teşekkür ederim. Printerde deneyemediğim için cevap yazma fırsatım olmadı. Denediğimde dönüş yapacağım buraya.
Herkese katkılarından dolayı teşekkür ederim.
Çalışmalarınızda başarılar diliyorum.

Sn Mehmet_Akif

Güzel bir konu açmışsınız. Bu konuya ilişkin ekteki örneğin birçok arkadaşın işine yarayacağını düşünüyorum.

Sizin örneğinizdeki gibi makbuz, fatura vs gibi raporlarda kalem sayısı belli olmadığı zaman makbuz veya fatura toplamının hep aynı yere yazması için yapılmış bir örnektir.

Burada cm ve pixel hesabı yaparak detail genişliğinden yola çıkarak ve yazılan kalem sayısınıda tespit ederek geri kalan boşluğu kendiniz hesaplatabilir ve boşluk bırakabilirsiniz.Bu boşluğu sağladıktan sonra TOPLAM rakamınız istediğiniz yere oturacaktır.

Sizde bulunan ve kullanmadığınız Grupaltbilgisi alanına bu rakam set edilmiş ve gerekli boşluk bırakılmıştır.

Lütfen olumlu veya olumsuz geri dönüş yapınız.