Hola que tal compañeros foreros, si les gustan los retos aqui tengo uno para ustedes... esto parce un acertijo se acpetan consejos y nuevas maneras de hacer las cosas pues este reporte ya me tiene mareado :S ni un colega me ha podido ayudar por eso recurro a ustedes sabios de todas partes del mundo a ver que les parece este acertijo.
Problema:
no me imprime un pagefooter o un summary en cierta posicion (hasta el final de la hoja), el problema que todo el reporte debe de imprimirse FORZOSAMENTE EN UNA HOJA tamaño oficio (medidas 215.9 y longitud 350.0) el sumary muchas veces me queda a la mitad del camino o se mueve a la siguiente no respeta el lugar, no se como hacer esto.
https://picasaweb.google.com/1033970...eat=directlink
Datos:
tengo qrdetail band indicandole que quiero 6 columnas por hoja, lo cual es genial por que nunca entran mas elementos para necesitar una hoja extra, he logrado decirle que el detail lo presente en 8 columnas pero deja demasiado espacio en blanco y esto no es posible pues no les ha gustado para nada, aunque de esto modo el sumary siempre queda en la posicion del fondo.
Ademas cabe mencionar que cuando le digo al quickreport que la banda detail debe de estar en 6 columnas la banda se me reduce como miles de pixeles en la pantalla y ni puedo ver como quedara en el preview tengo que andar adivinando coordenadas
Código Delphi
[-]
object QRBand3: TQRBand
Left = 19
Top = 240
Width = 110
Height = 25
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
AlignToBottom = False
BeforePrint = QRBand3BeforePrint
Color = clWhite
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Arial'
Font.Style = []
ForceNewColumn = False
ForceNewPage = False
LinkBand = QRGroup1
ParentFont = False
Size.Values = (
66.145833333333340000
291.041666666666700000)
BandType = rbDetail
object QRLabel1: TQRLabel
Left = 86
Top = 1
Width = 79
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.041666666666670000
227.541666666666700000
2.645833333333333000
209.020833333333300000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = 'QRLabel1'
Color = clWhite
Font.Charset = SYMBOL_CHARSET
Font.Color = clWindowText
Font.Height = -9
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 7
end
este es el footer
Código Delphi
[-]
object QRBand2: TQRBand
Left = 19
Top = 265
Width = 778
Height = 88
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
AlignToBottom = True
Color = clWhite
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Arial'
Font.Style = []
ForceNewColumn = False
ForceNewPage = False
LinkBand = QRBand3
ParentFont = False
Size.Values = (
232.833333333333400000
2058.458333333333000000)
BandType = rbPageFooter
object QRRichText1: TQRRichText
Left = 351
Top = -17
Width = 241
Height = 89
Frame.Color = clWhite
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Frame.Style = psClear
Size.Values = (
235.479166666666700000
928.687500000000000000
-44.979166666666670000
637.645833333333400000)
Alignment = taCenter
AutoStretch = False
Color = clWhite
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'Arial'
Font.Style = []
Lines.Strings = (
''
''
'________________________'
' Firma ' +
' ')
end
Gracias de nuevo y si han exprimentado un mejor desarollo con alguna otra herramienta que no sea quickreport porfavor compartan!