مطلوب كود الطباعة بشكل عمودي للفيجوال بيسك 6.........................................

[الجام العربي]

السلام عليكم.....



معلوم ان كود الطباعة هو printer.print "fffff"


و لكن اريد الطباعة بشكل عمودي.....


جربت هذا و لكن لم ينفع :
printer.oreintion=2

فما الحل؟؟؟؟



الرجااااء ايجاااد حل..........

[أبو هاجر الحلوة]

على فرض أن النص داخل متغيرة نصية MyStr
جرب هذا أو شيئا قريبا منه

For i=1 to Len(MyStr)
Printer.Print Mid(MyStr,i,1)
Next i

[الجام العربي]

شكرا لك .. و لكني لا اريدها بهذا الشكل.....

م
ن
ت
د
ى
ا
ل
م
ن
ت
د
ى

[أبو هاجر الحلوة]

كيف بالضبط ....؟

[malleko]

السلام عليكم و رحمة الله و بركاته
1- تحديد اتجاه الطباعة
2- الطباعة
3-إنهاء الطباعة
وهكذا دواليك لكل صفحة
Private Sub land_Click()
Printer.Orientation = vbPRORLandscape
Printer.Print " text "
Printer.EndDoc
End Sub

Private Sub portrait_Click()
Printer.Orientation = vbPRORPortrait
Printer.Print " text "
Printer.EndDoc
End Sub