توقيع الكتروني

جرب هذا الكود .. ضع picture Box على الفورم و زر واحد

اضبط خاصية autoRedrow اجلها تساوي True

في الزر اكتب الكود التالي

تحميل الصورة .

Picture1.Picture = LoadPicture(App.Path & "\image.bmp")
نوع الخط المستخدم 
        Picture1.Font = "Arial"
حجم الخط المستخدم
        Picture1.FontSize = 12
موضع الكتابة في اليسار
        Picture1.CurrentX = 50
موضوع الكتابة اسفل الصورة 
        Picture1.CurrentY = picture1.height - 500

        Picture1.Print "الفريق العربي للبرمجة - Omani"

طباعة الصورة على الورق - يجب التأكد بأن الطابعة تعمل 

        Printer.Print " " ' Printer must be initialized

      On Error Resume Next
      ' Enter the following two lines on one line:
       Printer.PaintPicture Picture1.Image, 0, 0
      If Err Then
         MsgBox Err & ": Error Printing Picture"
      End If
      On Error GoTo 0

      ' End print job:
      Printer.EndDoc

تحياتي