Print Using PrintPRO & ImagXpress

The following sample shows how to print using PrintPRO and ImagXpress.

Example	Copy Code
' define variables Dim a As Integer Dim b As Integer ' set the handle to the dib and scale mode PrintPRO1.hDib = ImagXpress1.hDib PrintPRO1.ScaleMode = SCALE_Pixel ' start the print document PrintPRO1.StartPrintDoc ' set the margins a = PrintPRO1.ScaleWidth - PrintPRO1.LMargin b = PrintPRO1.ScaleHeight - PrintPRO1.TMargin - PrintPRO1.BMargin PrintPRO1.PrintDIB PrintPRO1.LMargin, PrintPRO1.TMargin, a, b, 0, 0, 0, 0, True ' end the print document PrintPRO1.EndPrintDoc

Example

Copy Code

' define variables
Dim a As Integer
Dim b As Integer

' set the handle to the dib and scale mode
PrintPRO1.hDib = ImagXpress1.hDib
PrintPRO1.ScaleMode = SCALE_Pixel

' start the print document
PrintPRO1.StartPrintDoc

' set the margins
a = PrintPRO1.ScaleWidth - PrintPRO1.LMargin
b = PrintPRO1.ScaleHeight - PrintPRO1.TMargin - PrintPRO1.BMargin
PrintPRO1.PrintDIB PrintPRO1.LMargin, PrintPRO1.TMargin, a, b, 0, 0, 0, 0, True

' end the print document
PrintPRO1.EndPrintDoc