المساعد الشخصي الرقمي

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


الجام العربي
14-12-2006, 12:17 PM
السلام عليكم.....



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


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


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

فما الحل؟؟؟؟



الرجااااء ايجاااد حل..........:bigeyes:
أبو هاجر الحلوة
16-12-2006, 09:16 PM
على فرض أن النص داخل متغيرة نصية MyStr
جرب هذا أو شيئا قريبا منه

For i=1 to Len(MyStr)
Printer.Print Mid(MyStr,i,1)
Next i
الجام العربي
18-12-2006, 08:42 PM
شكرا لك .. و لكني لا اريدها بهذا الشكل.....

م
ن
ت
د
ى
ا
ل
م
ن
ت
د
ى
أبو هاجر الحلوة
19-12-2006, 12:44 AM
كيف بالضبط ....؟
malleko
22-12-2006, 04:36 PM
السلام عليكم و رحمة الله و بركاته
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