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
Gracias.
Code: Select all | Expand
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)
