FiveTech Software tech support forums

Buenos días

Gracias por la respuesta Mr. Rao disculpe el desconicimiento pero no entiendo

defino asi
PRINT oPrn FILE cNombrePdf PREVIEW

oPrn:CmSay( nFila, nColumDere,'AMBIENTE : '+cAmbiente , oFont1 )


Muchas gracias

... "N£mero" ), oemtoansi( "Descripci¢n" ) ; // ON dblCLICK (editrubro(olbx,.F.), olbx:Refresh()); ID 181 OF oDlg ; font ofont1 oLbx:nClrBackHead:=nRgb(0,130,250) oLbx:nClrForeHead:=nRgb(0,0,0) oLbx:nClrBackFocus:=nRgb(0,100,255) oLbx:nClrForeFocus:=nRgb(255,255,255) porque ...

... producto","Unid.","Precio","Total","Desc" ; FIELDSIZES 70,325, 80,100,100,100 ; FONT oFont1; size 690,350 PIXEL ; ON RIGHT CLICK ShowPop2( BROWSE_TAB3 , nRow, nCol ) on change ( car_mal(),ver_imag() ) VALID .T. WHEN .T. UPDATE COLOR ...

... * FROM clientes " oRS1cli := CargaRecordSet( cSQL, CadenaCon ) DEFINE FONT oFont NAME "Arial narrow" SIZE 0, - 12 DEFINE FONT oFont1 NAME "Arial narrow " SIZE 6, 18 DEFINE WINDOW oWndChild MDICHILD OF oWnd FROM 0,0 TO 24,79TITLE "Actualización de Clientes " ...

Probe con oPrn:SetPage( 1 ) oPrn:SetPortrait() mi codigo lo tengo todo con oPrn:CmSay( 1.0, 6.8 ,"Informe N° " + Alltrim(Str(NumNumero)),oFont1) oPrn:CmBox( 0.7, 6.5, 1.8, 14, oPen1 ) Y aun aparece recortado el PDF al tamaño de la etiqueta programada en la impresora

... "RFID Tag", "CERT Profile" ; FIELDSIZES 200 , 300 , 608 , 100 , 100, 100, 400 , 200 ; OF oDlg ARRAY aItems AUTOCOLS FONT oFont1 Thank you,

CODE: SELECT ALL EXPAND VIEW #include "Fivewin.ch" #include "xbrowse.ch" function PlanillaMantDiarios( oCn ) LOCAL oDlg, oFont1, oFont2, oFont3, oBrw, oRs, wmes, wanio, csql, oGet:={} LOCAL ii wmes := 11 wanio:= 2021 oGet:=Array(2) cSql := "SELECT * FROM mantenimientos ...

... "Lista",; "IVA",; "CUIT",; oemtoansi("Condici¢n de pago"); ALIAS cAlias AUTOSORT CELL LINES NOBORDER font ofont1 Saludos.

... vDetalhado) Static oReport #define BLANCO 1 #define ROJO 2 #define AMARILLO 3 #define AZUL 4 #define VERDE 5 LOCAL NOME := SPACE(25) LOCAL oFont1, oFont2, oFont3, oPen1, oPen2, cTit cTit := ALLTRIM(NEWPAR->EMPRESA1) DEFINE FONT oFont1 NAME "ARIAL" SIZE 0,-10 DEFINE FONT oFont2 ...

... Muchas Gracias !!! *-------------------------------------- FUNCTION VTA010LI1( oBrw ) *-------------------------------------- local oReport local oFont1 local oFont2 local xtipiva:={"RI ","RNI","C/F","EXE","MON"} sysrefresh() oR31 := oCn:RowSet( ...

... al compilar en todas estas lineas donde se indican las coordenadas. @ 2, 1 PRINT TO oPrn TEXT "Nombre de la Empresa" SIZE 9, 1 CM FONT oFont1 ALIGN "C" LASTROW nRow . . . @ 5.5, 12.5 PRINT TO oPrn TEXT AllTrim( cNombre ) SIZE 8, 1 CM FONT oFont LASTROW nRow ALIGN "L" ...

... si a vos te funciona ! asi llamo a la funcion del codigo QR desde la rutina de impresion nRow+=nRowStep oPrn:say(nRow,nMargen, replicate('-',45),oFont1) nRow+=nRowStep //..Genera QR llamando a TcodeBars ) BuildQR(oPrn, nRow,nMargen ,cCodBar ) // cCodbar trae la data a incluir en el QR ENDPAGE ...

... http://www.pflegeplus.com/IMAGES/Move4.jpg or simply with a fontchange DEFINE FONT oFont1 NAME "TAHOMA" SIZE 0,-14 DEFINE FONT oFont2 NAME "TAHOMA" SIZE 0,-14 UNDERLINE @ 10,10 COMBOBOX oCbx VAR nVar Items aType ...

... ya si se te ocurre otra idea, aun no logro imprimir vertical palabras... Gracias PD: Codigo de prueba: func ImpCB() local oPrn local oFont local oFont1 local oFont2 local oFont3 local nArriba := 0 local nIzq := .5 local nAbajo := 0 local nDerecha := 0 local nRen local nCodeLeft2 := 4.5 local ...

... vertical? Desde ya mil gracias Eduardo Rizzolo fullpaint PD: El codigo de ejemplo es el siguiente: func ImpCB() local oPrn local oFont local oFont1 local oFont2 local oFont3 local nArriba := 0 local nIzq := .5 local nAbajo := 0 local nDerecha := 0 local nRen local nCodeLeft2 := 4.5 local ...