Merhaba arkadaşlar,
Aşağıdaki kod ile, listeden birden fazla kişi seçecerek yazdırıyoruz,
ama her kişi için 3 nusha yazdırmam gerek,
onun için kodda nasıl bir degişiklik yapmam gerek acaba.?
Private Sub Komut79_Click()
Dim v As Variant
Dim Frm As Form
Dim ctl As Control
Dim theId As Variant
Dim WhereCrit As Variant
If Me.Liste8.ItemsSelected.Count = 0 Then
MsgBox "LÜTFEN LİSTEDEN SEÇİM YAPIN", vbExclamation, "DİKKAT"
|
3 nushaLI FATURA cıktısi almak ıstedıgımde
1,2,3,4....................50 1,2,3,4....................50 1,2,3,4....................50 seklinde cikti aliyorum
fakat ben
1,1,1,2,2,2.............................50,50,50 seklinde CIKTI ALMAK ISTIYORUM BUNU NASIL YAPABILIRIM ?
|