تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
طباعة صورة ملئ صفحة الطباعة
#1
كاتب الموضوع : AhmedEssawy

قم باستخدام لادالة التالية من اجل عملية الطباعة ، قم بارسال الطابعة والصورة التي تود طباعتها كباراميترات لهذه الدالة :


كود :
Public Function PrintPictureToFitPage(Prn As Printer, _
Pic As Picture) As Boolean

' * Programmer Name : Waty Thierry

' * Module Name : Capture_Module
' * Module Filename : Capture.bas
' * Procedure Name : PrintPictureToFitPage

Const vbHiMetric As Integer = 8
Dim PicRatio As Double
Dim PrnWidth As Double
Dim PrnHeight As Double
Dim PrnRatio As Double
Dim PrnPicWidth As Double
Dim PrnPicHeight As Double
On Error GoTo ErrorHandler
' *** Determine if picture should be printed in
'landscape or portrait and set the orientation
If Pic.Height >= Pic.Width Then
Prn.Orientation = vbPRORPortrait ' Taller than wide
Else
Prn.Orientation = vbPRORLandscape ' Wider than tall
End If
' *** Calculate device independent Width to Height
'ratio for picture
PicRatio = Pic.Width / Pic.Height
' *** Calculate the dimentions of the printable
'area in HiMetric
PrnWidth = Prn.ScaleX(Prn.ScaleWidth, Prn.ScaleMode, vbHiMetric)
PrnHeight = Prn.ScaleY(Prn.ScaleHeight, Prn.ScaleMode, vbHiMetric)
' *** Calculate device independent Width to Height
'ratio for printer
PrnRatio = PrnWidth / PrnHeight
' *** Scale the output to the printable area
If PicRatio >= PrnRatio Then
' *** Scale picture to fit full width of printable area
PrnPicWidth = Prn.ScaleX(PrnWidth, vbHiMetric, _
Prn.ScaleMode)
PrnPicHeight = Prn.ScaleY(PrnWidth / PicRatio, _
vbHiMetric, Prn.ScaleMode)
Else
' *** Scale picture to fit full height of printable area
PrnPicHeight = Prn.ScaleY(PrnHeight, vbHiMetric, _
Prn.ScaleMode)
PrnPicWidth = Prn.ScaleX(PrnHeight * PicRatio, _
vbHiMetric, Prn.ScaleMode)
End If
' *** Print the picture using the PaintPicture method
Prn.PaintPicture Pic, 0, 0, PrnPicWidth, PrnPicHeight
PrintPictureToFitPage = True
Exit Function
ErrorHandler:

PrintPictureToFitPage = False
End Function
}}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  إضافة اختصار صفحة انترنيت للمفضلة RaggiTech 0 618 17-10-12, 04:39 PM
آخر رد: RaggiTech
  التقاط صورة من الماسح الضوئي scanner RaggiTech 0 1,387 17-10-12, 02:17 PM
آخر رد: RaggiTech
  نسخ صورة الفورم إلى الحافظة RaggiTech 0 396 17-10-12, 01:11 AM
آخر رد: RaggiTech
  نسخ صورة الخلفية من سطح المكتب RaggiTech 0 277 17-10-12, 01:11 AM
آخر رد: RaggiTech
  لفتح صفحة انترنت RaggiTech 0 378 17-10-12, 12:58 AM
آخر رد: RaggiTech
  تطبيق كامل منقول - قراءة وتعديل صورة Jpeg RaggiTech 0 440 17-10-12, 12:35 AM
آخر رد: RaggiTech
  انشاء صورة bitmap من خلال API RaggiTech 0 417 17-10-12, 12:24 AM
آخر رد: RaggiTech

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم