FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour problemas impresion en laser
Posts: 149
Joined: Thu Jun 21, 2007 03:26 PM
problemas impresion en laser
Posted: Tue Jan 08, 2008 02:09 PM

Hola. Tengo un programa donde hago un grafico con GRAPH, y luego trato de imprimirlo con: odlg:print() o con odlg:hardcopy(3)
si la impresora por defecto es una deskjet, funciona, pero si la impresora es una laser, imprime una hoja en blanco. ¿alguna idea de que puede ser?
Gracias. Atte.

Posts: 8523
Joined: Tue Dec 20, 2005 07:36 PM
problemas impresion en laser
Posted: Tue Jan 08, 2008 02:45 PM

INTENTE DESINSTALAR Y REINSTALAR EL DRIVE DE LA IMPRESORA. PUEDE SEER ESTO.

MIRA TAMBIÉN SE NO TIENE UN LOOPING EN EL RELATORIO SIN EL SYSREFRESH()

Saludos.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Posts: 149
Joined: Thu Jun 21, 2007 03:26 PM
no funciona
Posted: Tue Jan 08, 2008 03:08 PM

hola. reinstale y sigue funcionando mal; me imprime la pagina en blanco; y probe el mismo programa con otras 2 laser diferentes, y en todas se da el mismo sintoma; con deskjet, funciona, pero no con laser. Si alguien sabe que puede ser. Gracias. Atte.

Posts: 8523
Joined: Tue Dec 20, 2005 07:36 PM
Re: no funciona
Posted: Tue Jan 08, 2008 03:18 PM
diegopolverelli wrote:hola. reinstale y sigue funcionando mal; me imprime la pagina en blanco; y probe el mismo programa con otras 2 laser diferentes, y en todas se da el mismo sintoma; con deskjet, funciona, pero no con laser. Si alguien sabe que puede ser. Gracias. Atte.


PUEDE SEER QUE TENGAS QUE ATUALIZAR EL DRIVE DE LA IMPRESORA.

OTRA: ESTAIS USANDO CMSAY() Ó CHARSAY()??

MEJOR CMSAY(). HAGA UN TESTE CON CMSAY().

Saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Posts: 8523
Joined: Tue Dec 20, 2005 07:36 PM
problemas impresion en laser
Posted: Tue Jan 08, 2008 03:23 PM
Como Imprimir em Centimetros sem errar e em qualquer Impressora
FUNCTION IMPRIME()

LOCAL ResColuna, ResLinha, oPrinter, oFont1

PRINTER oPrinter NAME "Teste de Impressão " PREVIEW
DEFINE FONT oFont1 NAME "Times" SIZE 0, -9 BOLD OF oPrinter
CursorWait()
oPrinter:SetLandScape()

rescoluna:=oPrinter:nlogpixelx()/2.54
reslinha:=oPrinter:nlogpixely()/2.54

PAGE

oPrinter:say(3*reslinha,5*rescoluna,"Teste de Impressão em Posição de Centímetros")

oPrinter:SayBitmap(5*resColuna,205*ResLinha,"logo.bmp",10*ResColuna,11*ResLi
nha,2 )

ENDPAGE
ENDPRINTER
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Posts: 149
Joined: Thu Jun 21, 2007 03:26 PM
sigue sin funcionar
Posted: Tue Jan 08, 2008 03:43 PM

Probe con eso, imprimiendo con un odlg:print(oprn,50,50,3.16), siendo oprn un objeto PRINT, y si imprimo seleccionando una impresora deskjet, sale bien, pero si imprimo en una laser, sale una hoja en blanco.

Continue the discussion