la consulta que les hago en esta ocasión es que los reportes que preparo en gambas2, cuando lo mando a imprimir me saca la hoja en blanco no se que pueda ser si me falta algo en el código o algo por el estilo, es impresora de inyección
el código de mi Reporte.
PRIVATE SUB impreReport()
DIM $kbzra AS ReportLabel
DIM $teXto AS ReportLabel
DIM $html AS ReportTextLabel
DIM $logo AS ReportImage
DIM $i2 AS Integer
DIM $rsTcate AS Result
TRY $rsTcate = Conexiones.$coNn.Exec("SELECT * FROM categorias ORDER BY clav_cate")
IF ERROR THEN
Message.Error(Error.Text)
ELSE
Report.Width = "216 mm"
Report.Height = "279 mm"
Report.Padding = "1 cm"
'hacemos la cabezera del documento en mi caso pongo esos datos
$kbzra = NEW ReportLabel(Report)
$kbzra.Alignment = Align.Left
$kbzra.Font = Font["Courier New, 10"]
$kbzra.Text = "Masotek Mictlan\nCalle 10 Lote 9 Manzana 27\nCol. Olivo II C.P. 54110\nTlalnepantla de Baz, Edo. de Mexico"
'colocamos la fecha y hora en que se genera el reporte
$kbzra = NEW ReportLabel(Report) 'crea una nueva etiqueta
$kbzra.Font = Font["Courier New, 10"]
$kbzra.Alignment = Align.Right 'a linea a la etiqueta creada
$kbzra.Text = "Fecha de Reporte " & Date & "\nHora de Reporte " & Format(Time(), "hh:nn:ss") 'contenido de la etiqueta
'coloco los datos de la compra como proveedors y quien realizo las capturas
$teXto = NEW ReportLabel(Report)
$teXto.Alignment = Align.Left
$teXto.Font = Font["Courier New, 15"]
'ahora cargamos los detalles de esa compra los cuales se hicieron en el query de compras2
FOR $i2 = 0 TO ($rsTcate.Count - 1)
$teXto = NEW ReportLabel(Report)
$teXto.Font = Font["Courier New, 10"]
$teXto.Text = $rsTcate!fech_cate & " | "
$teXto.Text &= $rsTcate!hora_cate & " | "
$teXto.Text &= $rsTcate!clav_cate & " | "
$teXto.Text &= $rsTcate!cate_cate & " | "
$rsTcate.MoveNext
NEXT
$teXto = NEW ReportLabel(Report)
$teXto.Text = "\nPorque te mereces lo mejor estamos para ti... : " & Date
Report.Preview
ENDIF
END
DIM $kbzra AS ReportLabel
DIM $teXto AS ReportLabel
DIM $html AS ReportTextLabel
DIM $logo AS ReportImage
DIM $i2 AS Integer
DIM $rsTcate AS Result
TRY $rsTcate = Conexiones.$coNn.Exec("SELECT * FROM categorias ORDER BY clav_cate")
IF ERROR THEN
Message.Error(Error.Text)
ELSE
Report.Width = "216 mm"
Report.Height = "279 mm"
Report.Padding = "1 cm"
'hacemos la cabezera del documento en mi caso pongo esos datos
$kbzra = NEW ReportLabel(Report)
$kbzra.Alignment = Align.Left
$kbzra.Font = Font["Courier New, 10"]
$kbzra.Text = "Masotek Mictlan\nCalle 10 Lote 9 Manzana 27\nCol. Olivo II C.P. 54110\nTlalnepantla de Baz, Edo. de Mexico"
'colocamos la fecha y hora en que se genera el reporte
$kbzra = NEW ReportLabel(Report) 'crea una nueva etiqueta
$kbzra.Font = Font["Courier New, 10"]
$kbzra.Alignment = Align.Right 'a linea a la etiqueta creada
$kbzra.Text = "Fecha de Reporte " & Date & "\nHora de Reporte " & Format(Time(), "hh:nn:ss") 'contenido de la etiqueta
'coloco los datos de la compra como proveedors y quien realizo las capturas
$teXto = NEW ReportLabel(Report)
$teXto.Alignment = Align.Left
$teXto.Font = Font["Courier New, 15"]
'ahora cargamos los detalles de esa compra los cuales se hicieron en el query de compras2
FOR $i2 = 0 TO ($rsTcate.Count - 1)
$teXto = NEW ReportLabel(Report)
$teXto.Font = Font["Courier New, 10"]
$teXto.Text = $rsTcate!fech_cate & " | "
$teXto.Text &= $rsTcate!hora_cate & " | "
$teXto.Text &= $rsTcate!clav_cate & " | "
$teXto.Text &= $rsTcate!cate_cate & " | "
$rsTcate.MoveNext
NEXT
$teXto = NEW ReportLabel(Report)
$teXto.Text = "\nPorque te mereces lo mejor estamos para ti... : " & Date
Report.Preview
ENDIF
END
espero me puedan auxiliar con esa duda.
(la impresora imprime bien lo que mando a excepción de los reportes)
Montevideo
