Un summary y detail con problemas!
 

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!

Hola DarkBlue....

Con respecto al Summary.... No tiene una posición fija, sino que se imprime al final de los datos...
El PageFooter si tiene una posición fija y es al final de la Hoja...

Con respecto al espacio que se reduce, también publique el mismo problema pero nadie supo decirme nada...
Si pongo un QRLabel que ocupe todo el ancho de la hoja y escribo hasta el final, al momento de imprimir sale del margen...
http://www.clubdelphi.com/foros/showthread.php?t=78378


Si quieres ayuda con el reporte, cuenta conmigo...

Saludos Neeruu!!! :)

Por supuesto que necesito de tu ayuda Neeruu, decho la solicito formalmente.

Solo dime por donde empiezo =) . Intente usar el footer band pero no lo imprime deecho le puse al footer band un frame de color y linea muy gruesa para comprobar que no se estaba imprimiendo, como era de esperarse no aparece.

DarkBlue..... mirando detenidamente la imagen que pusiste.... veo que en la configuración del reporte tienes desmarcado las opciones:
"Print First Page Header" y "Print Last Page Footer"....

Tampoco esta marcado el summary

Prueba marcándolas.... estoy seguro que ese es el problema....

Cualquier cosa me avisas....

Saluda Atte Neeruu!!!:)

debido a las reglas del foro te diria otra cosa, pero con esto basta eres un GENIO!. BUENO lo voy a probar en una impresora por que parece que ya me respeto en el preview y checa lo que te publique.