object imprimirCarteraClientes: TimprimirCarteraClientes Left = 232 Top = 319 Width = 837 Height = 476 Caption = 'Imprimir :: Cartera de Clientes' Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = False Scaled = False PixelsPerInch = 96 TextHeight = 13 object QuickRep1: TQuickRep Left = 0 Top = 0 Width = 794 Height = 1123 Frame.Color = clBlack Frame.DrawTop = False Frame.DrawBottom = False Frame.DrawLeft = False Frame.DrawRight = False Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Arial' Font.Style = [] Functions.Strings = ( 'PAGENUMBER' 'COLUMNNUMBER' 'REPORTTITLE') Functions.DATA = ( '0' '0' #39#39) Options = [FirstPageHeader, LastPageFooter] Page.Columns = 1 Page.Orientation = poPortrait Page.PaperSize = Default Page.Values = ( 100 2970 100 2100 100 100 0) PrinterSettings.Copies = 1 PrinterSettings.OutputBin = Auto PrinterSettings.Duplex = False PrinterSettings.FirstPage = 0 PrinterSettings.LastPage = 0 PrinterSettings.UseStandardprinter = False PrinterSettings.UseCustomBinCode = False PrinterSettings.CustomBinCode = 0 PrinterSettings.ExtendedDuplex = 0 PrinterSettings.UseCustomPaperCode = False PrinterSettings.CustomPaperCode = 0 PrinterSettings.PrintMetaFile = False PrinterSettings.PrintQuality = 0 PrinterSettings.Collate = 0 PrinterSettings.ColorOption = 0 PrintIfEmpty = True SnapToGrid = True Units = MM Zoom = 100 PrevFormStyle = fsNormal PreviewInitialState = wsNormal PrevInitialZoom = qrZoomToFit PreviewDefaultSaveType = stQRP object QRPBand1: TQRPBand Left = 38 Top = 38 Width = 718 Height = 40 Frame.Color = clBlack Frame.DrawTop = False Frame.DrawBottom = False Frame.DrawLeft = False Frame.DrawRight = False AlignToBottom = False Color = clWhite TransparentBand = False ForceNewColumn = False ForceNewPage = False Size.Values = ( 105.833333333333 1899.70833333333) PreCaluculateBandHeight = False KeepOnOnePage = False BandType = rbTitle AlwaysUseSpace = False NotOnFirstPage = False NotOnLastPage = False object QRLabel1: TQRLabel Left = 264 Top = 8 Width = 178 Height = 23 Frame.Color = clBlack Frame.DrawTop = False Frame.DrawBottom = False Frame.DrawLeft = False Frame.DrawRight = False Size.Values = ( 60.8541666666667 698.5 21.1666666666667 470.958333333333) Alignment = taLeftJustify AlignToBand = False AutoSize = True AutoStretch = False Caption = 'Cartera de Clientes' Color = clWhite Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -19 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False Transparent = False WordWrap = True ExportAs = exptText FontSize = 14 end end object QRPBand2: TQRPBand Left = 38 Top = 118 Width = 718 Height = 40 Frame.Color = clBlack Frame.DrawTop = False Frame.DrawBottom = False Frame.DrawLeft = False Frame.DrawRight = False AlignToBottom = False Color = clWhite TransparentBand = False ForceNewColumn = False ForceNewPage = False Size.Values = ( 105.833333333333 1899.70833333333) PreCaluculateBandHeight = False KeepOnOnePage = False BandType = rbDetail AlwaysUseSpace = False NotOnFirstPage = False NotOnLastPage = False object QRExpr1: TQRExpr Left = 35 Top = 0 Width = 11 Height = 17 Frame.Color = clBlack Frame.DrawTop = False Frame.DrawBottom = False Frame.DrawLeft = False Frame.DrawRight = False Size.Values = ( 44.9791666666667 92.6041666666667 0 29.1041666666667) Alignment = taRightJustify AlignToBand = False AutoSize = True AutoStretch = False Color = clWhite ResetAfterPrint = False Transparent = False WordWrap = True Expression = 'id' ExportAs = exptText FontSize = 10 end object QRExpr2: TQRExpr Left = 56 Top = 0 Width = 44 Height = 17 Frame.Color = clBlack Frame.DrawTop = False Frame.DrawBottom = False Frame.DrawLeft = False Frame.DrawRight = False Size.Values = ( 44.9791666666667 148.166666666667 0 116.416666666667) Alignment = taLeftJustify AlignToBand = False AutoSize = True AutoStretch = False Color = clWhite ResetAfterPrint = False Transparent = False WordWrap = True Expression = 'nombre' ExportAs = exptText FontSize = 10 end object QRExpr3: TQRExpr Left = 600 Top = 0 Width = 103 Height = 17 Frame.Color = clBlack Frame.DrawTop = False Frame.DrawBottom = False Frame.DrawLeft = False Frame.DrawRight = False Size.Values = ( 44.9791666666667 1587.5 0 272.520833333333) Alignment = taLeftJustify AlignToBand = False AutoSize = True AutoStretch = False Color = clWhite ResetAfterPrint = False Transparent = False WordWrap = True Expression = 'telefono+'#39', '#39'+movil' ExportAs = exptText FontSize = 10 end object QRExpr4: TQRExpr Left = 512 Top = 0 Width = 18 Height = 17 Frame.Color = clBlack Frame.DrawTop = False Frame.DrawBottom = False Frame.DrawLeft = False Frame.DrawRight = False Size.Values = ( 44.9791666666667 1354.66666666667 0 47.625) Alignment = taLeftJustify AlignToBand = False AutoSize = True AutoStretch = False Color = clWhite ResetAfterPrint = False Transparent = False WordWrap = True Expression = 'dni' ExportAs = exptText FontSize = 10 end object QRExpr5: TQRExpr Left = 56 Top = 16 Width = 273 Height = 17 Frame.Color = clBlack Frame.DrawTop = False Frame.DrawBottom = False Frame.DrawLeft = False Frame.DrawRight = False Size.Values = ( 44.9791666666667 148.166666666667 42.3333333333333 722.3125) Alignment = taLeftJustify AlignToBand = False AutoSize = True AutoStretch = False Font.Charset = DEFAULT_CHARSET Font.Color = clGray Font.Height = -13 Font.Name = 'Arial' Font.Style = [] Color = clWhite ParentFont = False ResetAfterPrint = False Transparent = False WordWrap = True Expression = 'calle+'#39', '#39'+poblacion+'#39', CP: '#39'+cp+'#39' ('#39'+provincia+'#39')'#39 ExportAs = exptText FontSize = 10 end end object QRPBand3: TQRPBand Left = 38 Top = 158 Width = 718 Height = 40 Frame.Color = clBlack Frame.DrawTop = False Frame.DrawBottom = False Frame.DrawLeft = False Frame.DrawRight = False AlignToBottom = False Color = clWhite TransparentBand = False ForceNewColumn = False ForceNewPage = False Size.Values = ( 105.8 1899.70833333333) PreCaluculateBandHeight = False KeepOnOnePage = False BandType = rbPageFooter AlwaysUseSpace = False NotOnFirstPage = False NotOnLastPage = False end object QRPBand4: TQRPBand Left = 38 Top = 78 Width = 718 Height = 40 Frame.Color = clBlack Frame.DrawTop = False Frame.DrawBottom = True Frame.DrawLeft = False Frame.DrawRight = False AlignToBottom = False Color = clWhite TransparentBand = False ForceNewColumn = False ForceNewPage = False Size.Values = ( 105.833333333333 1899.70833333333) PreCaluculateBandHeight = False KeepOnOnePage = False BandType = rbColumnHeader AlwaysUseSpace = False NotOnFirstPage = False NotOnLastPage = False object QRLabel2: TQRLabel Left = 16 Top = 16 Width = 14 Height = 17 Frame.Color = clBlack Frame.DrawTop = False Frame.DrawBottom = False Frame.DrawLeft = False Frame.DrawRight = False Size.Values = ( 44.9791666666667 42.3333333333333 42.3333333333333 37.0416666666667) Alignment = taLeftJustify AlignToBand = False AutoSize = True AutoStretch = False Caption = 'ID' Color = clWhite Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False Transparent = False WordWrap = True ExportAs = exptText FontSize = 10 end object QRLabel3: TQRLabel Left = 56 Top = 16 Width = 124 Height = 17 Frame.Color = clBlack Frame.DrawTop = False Frame.DrawBottom = False Frame.DrawLeft = False Frame.DrawRight = False Size.Values = ( 44.9791666666667 148.166666666667 42.3333333333333 328.083333333333) Alignment = taLeftJustify AlignToBand = False AutoSize = True AutoStretch = False Caption = 'Nombre del Cliente' Color = clWhite Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False Transparent = False WordWrap = True ExportAs = exptText FontSize = 10 end object QRLabel4: TQRLabel Left = 600 Top = 16 Width = 63 Height = 17 Frame.Color = clBlack Frame.DrawTop = False Frame.DrawBottom = False Frame.DrawLeft = False Frame.DrawRight = False Size.Values = ( 44.9791666666667 1587.5 42.3333333333333 166.6875) Alignment = taLeftJustify AlignToBand = False AutoSize = True AutoStretch = False Caption = 'Tel'#233'fonos' Color = clWhite Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False Transparent = False WordWrap = True ExportAs = exptText FontSize = 10 end object QRLabel5: TQRLabel Left = 512 Top = 16 Width = 35 Height = 17 Frame.Color = clBlack Frame.DrawTop = False Frame.DrawBottom = False Frame.DrawLeft = False Frame.DrawRight = False Size.Values = ( 44.9791666666667 1354.66666666667 42.3333333333333 92.6041666666667) Alignment = taLeftJustify AlignToBand = False AutoSize = True AutoStretch = False Caption = 'D.N.I.' Color = clWhite Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False Transparent = False WordWrap = True ExportAs = exptText FontSize = 10 end end end end