FiveTech Software tech support forums

Buenos días,

Un workaround buscando funcionalidad sería:

Usar oPrn:SetSize() ( PrnSetSize() ) en vez de oPrn:SetPage()

Salu2

yo lo hago asi:


Local cPrinter:="Microsoft XPS Document Writer"

oPrn:=PrnSetSize( 2159, 3302 )
PRINT oPrn NAME "Impresión " PREVIEW TO cPrinter

y luego imprimo a pdf
saludos

... a pulso en base a tu aporte, Francisco: http://forums.fivetechsupport.com/viewtopic.php?f=6&t=30612&p=175841&hilit=PrnSetSize#p175835 Me dio las luces he hice el calculo a las pulgadas que necesitaba. Un detalle que el PrnSetSize() va antes de la creación del objeto ...

Antonio, aquí la segunda parte: Error: Unresolved external '_HB_FUN_DRAWTHEMED' referenced from P:\32BITS\FWH\LIB\FIVEHX.LIB|DIALOG Error: Unresolved external '_HB_FUN_GETDLGBASEUNITS' referenced from P:\32BITS\FWH\LIB\FIVEHX.LIB|DIALOG Error: Unresolved external '_HB_FUN_CDLG2CHR' referenced from P...

... (de tinta) y me presenta el siguiente problema al tratar de imprimir un Comprobante de Diario: Si al reporte lo quito todo lo referente a PrnSetSize(nAncho,nAlto) y PrinterSetup(oPrn), me da los resultados correctos como en la imagen cdiario1, pero al darle imprimir, la bendita impresora ...

Adhemar, intenta asi:
PrnSetSize(2160,1390)
Saludos.

Joao

#define DMPAPER_STATEMENT 6 // Statement 5 1/2 x 8 1/2 in

Tendría que ser:

#define DMPAPER_STATEMENT 6 // Statement 8 1/2 x 5 1/2 in ó 210 x 140 mm

Lo mas cerca que he logrado es con: PrnSetSize( 2500, 1402 )

Saludos,

Adhemar

Ya lo intenté

Es igual a oPrn := PrnSetSize( 2500, 1402 )

Saludos,

Adhemar

Estimados Necesito imprimir en papel media carta 8.5 * 5.5 continuo con TPrint Intenté con oPrn := PrnSetSize( 2500, 1405 ) pero cuando imprime la siguiente avanza de a poco y como es en papel pre-impreso varia. También he intentado con todos éstos con oPrn:SETPAGE( ) y ...

... DMPAPER_LEGAL ) // Quitando esta linea la clase asume papel carta (8.5" x 11") oPlanilla:oPrn:SetPortrait() ... ... PrnSetSize( 2159, 3302 ) // Los valores para nWidth y nHeight están calculados en base a 2.54 cm x pulgada oPlanilla:oPrn:Preview() oPlanilla:oPrn:End()

... ENDIF IF lSel_Imp=NIL lSel_imp=.t. ENDIF IF lPreview=NIL lPreview=.f. ENDIF IF lLnds=NIL lLnds=.f. ENDIF IF nCopias=NIL nCopias=1 ENDIF PrnSetSize(nAncho*100, nLargo*100) //Creo objeto tprinter IF !lSel_imp .AND. !lPreview PRINT oImp TITLE cNom_Spooler ELSEIF lSel_imp .and. !lPreview ...

... ENDIF IF lSel_Imp=NIL lSel_imp=.t. ENDIF IF lPreview=NIL lPreview=.f. ENDIF IF lLnds=NIL lLnds=.f. ENDIF IF nCopias=NIL nCopias=1 ENDIF PrnSetSize(nAncho*100, nLargo*100) //Creo objeto tprinter IF !lSel_imp .AND. !lPreview PRINT oImp TITLE cNom_Spooler ELSEIF lSel_imp .and. !lPreview ...

PrnSetSize(2160,2790) //media hoja=2160 x 1395, carta=2160 x 2790 PrnLandScape() //horizontal REPORT oReport; TITLE "XXXXXXX"; PREVIEW COLUMN TITLE "FECHA","DOCUMENT"; DATA FIELD->FECHA; CENTERED; ...

Seba, You're Fantastic !!! MyRpt now run also on Windows Seven 32 and 64 bit with Emf the solution was : 1. PrnSetSize( 202 * 10, 289* 10 ) on METHOD Activate() CLASS RptRun do you hve the same values for A3 paper ? 2. apos := ::oprn:mmtr2pix(oItem:nTop,oItem:nleft) nTop := Max( ...

... xHarbour 1.2.1 (Simplex) (Rev. 9656) 1. Before PRINT nWid := ROUND( 8.5 * 254, 0) // 8.5 inches wide nLen := ROUND( 12 * 254, 0) // 12 inches wide PrnSetSize( nWid, nLen ) PRINT oPrinter FROM USER PRINT NAME "AWB" PREVIEW MODAL . . ENDPRINT nWid := ROUND( 8.5 * 254, 0) nLen := ROUND( ...