[DarkBlue]

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!