Bom dia,
Uso a Freeimage para mostrar jpg,mas nao estou a consiguir imprimir,ja tente com a SayImage() e a que uso SayBitmap(),alguem pode me ajudar??
Um abraço de Portugal
Joao Alpande
Msn Messenger: wavetronic@net.novis.pt

Moderador: Moderadores
// Printing images
#include "FiveWin.ch"
//----------------------------------------------------------------------------//
function Main()
local oPrn
PRINT oPrn PREVIEW
PAGE
oPrn:SayBitmap( 1, 1, "..\bitmaps\fivewin.bmp" )
ENDPAGE
ENDPRINT
return nil
// Sample showing how to manage the printer object
#include "FiveWin.ch"
static oWnd
//----------------------------------------------------------------------------//
function Main()
local oPrn, oFont
local nRowStep, nColStep
local nRow := 0, nCol := 0, n, m
// PrnSetSize( 2100, 1200 ) To adjust a different printer paper size!
PRINT oPrn NAME "Testing the printer object from FiveWin" PREVIEW
if Empty( oPrn:hDC )
return nil // Printer was not installed or ready
endif
DEFINE FONT oFont NAME "Ms Sans Serif" SIZE 0, -20 OF oPrn
nRowStep = oPrn:nVertRes() / 20 // We want 20 rows
nColStep = oPrn:nHorzRes() / 15 // We want 15 cols
PAGE
oPrn:SayBitmap( 1, 1, "..\bitmaps\fivewin.bmp" )
for n = 1 to 20 // rows
nCol = 0
oPrn:Say( nRow, nCol, Str( n, 2 ) )
nCol += nColStep
for m = 1 to 15
oPrn:Say( nRow, nCol, "+" )
nCol += nColStep
next
nRow += nRowStep
next
oPrn:Line( 0, 0, nRow, nCol )
ENDPAGE
ENDPRINT
oFont:End() // Destroy the font object
MsgInfo( "Work done! Look at your printer!" )
return nil
Usuários vendo este fórum: Nenhum usuário registrado online e 10 visitantes