Search the Community

// 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 */ IF .NOT. isPrinterReady( oPrn ) MsgAlert( "Verifique a Impressora", "Verifique a Impressora" ) RETURN NIL ENDIF DEFINE FONT oFont NAME "Ms Sans Serif" SIZE 0, -12 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 ), oFont ) nCol += nColStep for m = 1 to 15 oPrn:Say( nRow, nCol, "+", oFont ) nCol += nColStep next nRow += nRowStep next oPrn:Line( 0, 0, nRow, nCol ) ENDPAGE PAGE nRow = 0 oPrn:SayBitmap( 1, 1, "..\bitmaps\fivewin.bmp" ) for n = 1 to 20 // rows nCol = 0 oPrn:Say( nRow, nCol, Str( n + 20, 2 ), oFont ) nCol += nColStep for m = 1 to 15 oPrn:Say( nRow, nCol, "+", oFont ) nCol += nColStep next nRow += nRowStep next oPrn:Line( 0, 0, nRow, nCol ) ENDPAGE ENDPRINT oFont:End() // Destroy the font object return nil // função simples para verificar se a impressora está pronta FUNCTION isPrinterReady( oPrn ) RETURN !Empty( oPrn:hDC )

Bom dia. Estou com o seguinte problema, ao realizar a visualização da impressão, o tamanho da folha da impressora é ajustada automaticamente para o tamanho padrão da impressora. Isto acontece embora nas configurações da impressora já esteja como A4. Mesmo com a configuração correta (no Windows) ainda assim o tamanho da folha é modificado para A6 em uma impressora, e Carta em outra. Provavelmente são os tamanhos padrão de fábrica. Alguma dica?