Hola he tenido varios problemas con tPrinter y la creaci贸n de PDF.
Lo he solucionado con
en tPrinter.prg
METHOD GenHaruPDF( cFile, lPreview ) CLASS TPrinter linea 1907
coment茅 estas lineas: 1933,1934,1935
if aCall[ 1 ] == "SAY" .or. aCall[ 1 ] == "SAYTEXT"
aCall[ 2, 3 ] := StrTran( aCall[ 2, 3 ], "#PGC#", cLastPage )
endif
y funcion贸 bien generando el PDF (apretando el bot贸n Adobe desde preview), con mas de 30,40 o 50 p谩ginas.
A lo mejor alguien tiene una mejor solucion.
Gracias a todos.
Hola amigos.
Tratando de usar la clase tPrinter.
Cuando hago el PREVIEW y le doy imprimir, me aparece el men煤 de impresi贸n con los radiobuttons incompletos y adem谩s se sale de
la aplicaci贸n.
Hago un ENDPAGE Y UN PAGE para que muestre el men煤 de impresi贸n
dejo im谩gen y codigo.
https://ibb.co/5X6VJcKL
Despues se sale del programa
Gracias.
Lo he solucionado con
en tPrinter.prg
METHOD GenHaruPDF( cFile, lPreview ) CLASS TPrinter linea 1907
coment茅 estas lineas: 1933,1934,1935
if aCall[ 1 ] == "SAY" .or. aCall[ 1 ] == "SAYTEXT"
aCall[ 2, 3 ] := StrTran( aCall[ 2, 3 ], "#PGC#", cLastPage )
endif
y funcion贸 bien generando el PDF (apretando el bot贸n Adobe desde preview), con mas de 30,40 o 50 p谩ginas.
A lo mejor alguien tiene una mejor solucion.
Gracias a todos.
Hola amigos.
Tratando de usar la clase tPrinter.
Cuando hago el PREVIEW y le doy imprimir, me aparece el men煤 de impresi贸n con los radiobuttons incompletos y adem谩s se sale de
la aplicaci贸n.
Hago un ENDPAGE Y UN PAGE para que muestre el men煤 de impresi贸n
dejo im谩gen y codigo.
https://ibb.co/5X6VJcKL
Despues se sale del programa
Gracias.
FUNCTION PRNSLOT()
LOCAL slnro,slnombre,slvalor,slbanco, slcam1,slcam2,slcam3,slmoneda,slcam4
basesl := TData():New(,ruta+"SLOTS" )
If basesl:Use()
basesl:SetOrder("NMAQ")
basesl:GoTop()
else
MsgInfo('Error de apertura de archivo', 'Informe')
return(.f.)
endif
titulolistado := "Listado de Slots"
CursorWait()
PRINT oPrn NAME "Lista de Slots" PREVIEW MODAL
oPrn:SetPage(1)
oPrn:SetPortrait()
DEFINE FONT oFont11 NAME "TIMES NEW ROMAN" SIZE 0,-14 BOLD OF oPrn
DEFINE FONT oFont12 NAME "HELVETICA" SIZE 0,-10 OF oPrn
DEFINE FONT oFont13 NAME "HELVETICA" SIZE 0,-16 BOLD ITALIC OF oPrn
DEFINE FONT oFont14 NAME "Segoe UI" SIZE 0,-10 OF oPrn
DEFINE FONT oFont15 NAME "TAHOMA" SIZE 0,-8 OF oPrn
DEFINE FONT oFont16 NAME "CAMBRIA" SIZE 0,-10 BOLD ITALIC OF oPrn
DEFINE BRUSH oBrush COLOR CLR_WHITE
DEFINE PEN oPen WIDTH 1 COLOR CLR_BLACK
aDesde := oPrn:Cmtr2Pix(0.5,2.5)
aAncho := oPrn:Cmtr2Pix(3,2.5)
cmt := 1
PAGE
oPrn:RoundBox(2,8,3,14,0.3,0.3,oPen,CLR_WHITE,{"Qu茅 hago mal ?", {oFont11 }, CLR_BLACK},"CM")
cmt+=0.7
basesl:Gotop()
do while !basesl:Eof()
slnro:=basesl:nslot
slnombre:=basesl:snom
slbanco:=basesl:cbanco
slcam1:=basesl:cubre1
slcam2:=basesl:cubre2
slcam3:=basesl:cubre3
slmoneda:= if(basesl:moneda="D",HBA("D贸lares"), "Pesos")
slvalor:= basesl:valor
slcam4:= xTrim(slcam1)+" - "+xTrim(slcam2)+" - "+xTrim(slcam3)
oPrn:CmSay( cmt, 3.2, slnro, oFont15,2, CLR_BLACK,,1)
cmt+=0.5
SysRefresh()
if cmt >=23
// PieSlotPagina()
//OtraSlotPagina()
basesl:Skip()
ELSE
basesl:Skip()
ENDIF
ENDDO
ENDPAGE
PAGE
ENDPAGE
ENDPRINT
oFont11:END()
oFont12:END()
oFont13:END()
oFont14:END()
oFont15:END()
oFont16:END()
oBrush:End()
oPen:End()
SysRefresh()
basesl:Close()
return(nil)Dario Fernandez
FWH 2501, Harbour, MVS2022 Community, MySql & MariaDB, Dbf/Cdx VSCode.
Maldonado - Uruguay
FWH 2501, Harbour, MVS2022 Community, MySql & MariaDB, Dbf/Cdx VSCode.
Maldonado - Uruguay
