استخدام vb في اخراج بيانات الي منفذ الطابعة

ان كنت تقصد الطباعة الى البورت مباشرة فجرب استخدام الكود التالي

Public Function FindPrinterPort(Port As String) As Boolean
Dim P As Printer, Found As Boolean
For Each P In Printers
    If Printer.Port = Port & ":" Then
        Found = True
        Exit For
    End If
Next
FindPrinterPort = Found
End Function

Private Sub Command1_Click()
If FindPrinterPort("LPT1") = True Then
    Port1 = "LPT1"
    Open Port1 For Output As #1 Len = 40
    Print #1, "Hello World"
    Close #1
End If
End Sub

علما انه لايعمل الا على ويندوز98

أما ان كنت تريد الطباعة باستخدام الكائن Printer وهو الأفضل فجرب استخدام الكود التالي

Printer.Print "Hello World"
Printer.EndDoc

مع تحديد الخصائص اللازمة لذلك قبل البدء في الطباعة مثل

Printer.Copies = 1
Printer.FontName = "tahmoa"
Printer.FontSize = 15
Printer.Orientation = vbPRORPortrait 'or vbPRORLandscape
Printer.RightToLeft ' for arabic

جرب استخدامها وستجد انها سهلة جدا

آسف لانك لم تقصد الطباعة ولكنك لم توضح في السؤال..

وكما وعدتك عن طريقة التحكم بالبورت اريد ان تجيب عن بعض الاسئلة لتسهيل الاجابة

هل تريد التحكم بالمنفذ المتوازي Parallel ام التسلسلي Serial

هل تستخدم يندوز 98 ام ( NT ( 2000

وشكرا

http://toffi.4t.com/LPT.htm

http://www.arabteam2000.com/Electron/LptVB.htm

واذا أردت معلومات أكثر فنحن جاهزين

على فكرة غير متوافق مع Winnt