FiveTech Software tech support forums

Hola gracias por responder, pude solucionarlo con :

oPrn:setpage(1)
t := oPrn:GetPhySize()
? t[1], t[2]


oPrn:setpage(5)
t := oPrn:GetPhySize()
? t[1], t[2]

oPrn:setpage(5)
t := oPrn:GetPhySize()
? t[1], t[2]


Con esto si devuelve el tamaño de hoja que se estableció, de esta forma resolví mi ...

Hola, no me hago entender, ahí donde muestro los datos del ancho y alto de la hoja no me toma el set page(9)

Igual la impresora es una hp deskjet 3050 que le puse como ejemplo A5

Tambien lo probre con una comandera SAM4S GIANT-100 y tambien con una Brother HL-1200

Con cualquiera que pruebe los ...

Tengo definido así:

TPrinter():lUseHaruPDF := .f.
PRINT oPrn PREVIEW FILE "jorge.pdf"
oPrn:setpage( 9 ) // tama¤o de papel A4


publ xAncho := ( ( oPrn:nHorzRes() / 25.4 ) / 10 ) //-1
publ xAltocm := ( ( oPrn:nVertRes() / 25.4 ) / 10 ) // -1.5

? xaltocm, xancho

los valores que muestra xAncho ...

Hola, en principio definiendo así se soluciona, pero me genero otros problemas, por ej. tuve que anular Box_Round porque da error:

TPrinter():lUseHaruPDF := .t.
PRINT oPrn PREVIEW FILE "jorge.pdf"

Sigo intentando, pero es una alternativa
También tuve problemas con oPrn:FillRect entre otros, no ...

No, sigue sin funcionar, puede ser que me falte alguna librería o dll

Lo que quiero es imprimir un informe en hoja A4 y que se respete el tamaño sin que tenga en cuenta la impresora predeterminada.

El tema es que se usa en varias pc y tienen distintas impresoras y tamaños de papel predeterminados y sale en algunas bien y en otras mal, porque no se respeta el A4 que ...

Hola gracias por responder, no me funciona.

https://drive.google.com/file/d/1UFcIwi ... drive_link

Hola Gente, hace rato que estoy dando vueltas con esto.

Por ejemplo pongo una comandera como predeterminada y chau hace cualquier cosa.

Tengo definido así

printer oPrn file xnombrenota preview
* oPrn:setpage( 9 ) // tama¤o de papel A4
oPrn:setsize( 2098, 2970 )

que estoy haciendo mal, de ...

Hola gente, me pueden decir que estoy haciendo mal:

xdrive := curdrive() + ":\" + curdir()+"\esp"
oCn := FW_OpenAdoConnection( { "FOXPRO", xdrive}, .T.)

cSQL := "select top 10 Cliente, Fecha, licita, descrip, cantidad, devol from detlici where codigo = '00024' order by descrip" // and licita ...

Hola gente, existe alguna manera sencilla de sacar los decimales, hoy en Argentina no tienen sentido los decimales en un sistema de facturación.

Probé:

SET FIXED ON
SET DECIMALS TO 0

sin resultado, para no modificar todo el sistema, aunque en todos lados aparezcan los decimales pero que estén ...

Hola gente, consulta, tengo un sistema que lo hemos instalado en varias pcs que trabaja con SQLServer en un hosting en la nube.

Tengo problema con una computadora que no se conecta, deshabilite el firewall, el antivirus y nada no encuentro la forma de que se conecte.

También mi programa se conecta ...

Gracias por responder, lo llamaba así: RichEdit5( @xHecho, "Desvio", 9, 9, 30, 140 )
sin definir en el programa, lo que hice fue definir:


Function RichEdit5( cText, cTitle, nTop, nLeft, nBottom, nRight )

local oFont, oDlg
local hDLL
local uTemp := If( ! Empty( cText ), cText, '' )
local ...

Hola gente, como puedo definir el font por defecto Arial en lugar de MS Sans

Mr. Rao, sigue el mismo error

Error description: Error ADODB.Connection/0 S_OK: EXECUTE
Args:
[ 1] = C INSERT INTO prueba (cliente,Numero) VALUES ( 0, 21)

Stack Calls
===========
Called from: => TOLEAUTO:EXECUTE( 0 )
Called from: abd4.prg => MAIN( 58 )



en el dbf prudbt inserta el registro ...

Hola, tengo este programa y no entiendo porque me da error el segundo insert:

#include "FiveWin.ch"

REQUEST HB_LANG_ES

function Main()

local oCn, oCnM, oRs, aStates

LOCAL lShowError := .t.

/*
dbcreate( ".\prudbt", { { "id" , "n", 8, 0 }, ;
{ "Cliente " , "n", 6, 0 }, ;
{ "Numero" , "n", 6 ...