ايران ويج

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

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

ممکنه اون لیست 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

sevdaboy