درخواست کد پرینتر

[sevdaboy]

دوستان خسته نباشید

یه برنامه دارم میخوام لیست باکس رو برام پرینت بگیره فقط نمیدونم به چه صورت میشه لیست باکس رو پرینت گرفت

ممکنه اون لیست 60 یا 70 آیتم توش باشه !

بازم ممنوم

---

با کمون دیالوگ هم تست کردم
برگه سفید بیرون میاد

کد:

Private Sub Command1_Click()
On Error GoTo ErrTrap
Dim i As Long
   With CommonDialog1
        .DialogTitle = "Page Setup"
        .CancelError = True
        .ShowPrinter
    End With
    For i = 0 To List1.ListCount - 1
        Printer.Print List1.List(i)
    Next
    Printer.EndDoc
Exit Sub
ErrTrap:
If Err.Number = 32755 Then
   MsgBox "Print Job Cancelled."
End If
End Sub

اینم تست کردم باز هم سفید میده بیرون

کد:

Private Sub Command1Click()
Dim i As Long
    
    For i = 0 To List1.ListCount - 1
        Printer.Print List1.List(i)
    Next
    
    Printer.EndDoc

End Sub

[sevdaboy]

عاقا تو کد اولی جواب داد

موفق باشید

ممنونم