---

Hej

I Delphi 3 er der QReport Hvis jeg vil se et Preview af en Dbase der hedder
A1 skriver jeg dette her

og dette virker fint men hvis jeg gerne vil se 2 Dbaser på en gang i
forlængelse af hinanden Hva' gør jeg så !!

unit2.Form2.Table1.TableName:='a1';

unit2.Form2.Table1.Active:=true;

unit2.Form2.QuickRep1.Preview;

unit2.Form2.Table1.Active:=false;

og

object QuickRep1: TQuickRep

Left = 136

Top = 72

Width = 785

Height = 217

Frame.Color = clBlack

Frame.DrawTop = False

Frame.DrawBottom = False

Frame.DrawLeft = False

Frame.DrawRight = False

DataSet = Table1

Font.Charset = DEFAULT_CHARSET

Font.Color = clWindowText

Font.Height = -11

Font.Name = 'Arial'

Font.Style = []

Options = [FirstPageHeader, LastPageFooter]

Page.Columns = 1

Page.Orientation = poPortrait

Page.PaperSize = A4

Page.Values = (

100

2970

100

2100

100

100

0)

PrintIfEmpty = False

PrinterSettings.Copies = 1

PrinterSettings.Duplex = False

PrinterSettings.FirstPage = 0

PrinterSettings.LastPage = 0

PrinterSettings.OutputBin = First

SnapToGrid = True

Units = MM

Zoom = 100

object TitleBand1: TQRBand

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

ForceNewColumn = False

ForceNewPage = False

Size.Values = (

105.833333333333

1899.70833333333)

BandType = rbTitle

object QRLabel1: TQRLabel

Left = 354

Top = 0

Width = 10

Height = 23

Frame.Color = clBlack

Frame.DrawTop = False

Frame.DrawBottom = False

Frame.DrawLeft = False

Frame.DrawRight = False

Size.Values = (

60.8541666666667

936.625

0

26.4583333333333)

Alignment = taCenter

AlignToBand = True

AutoSize = False

AutoStretch = False

Caption = 'BT'

Color = clWhite

Font.Charset = DEFAULT_CHARSET

Font.Color = clWindowText

Font.Height = -19

Font.Name = 'Arial'

Font.Style = [fsBold]

ParentFont = False

Transparent = False

WordWrap = True

FontSize = 14

end

end

object ColumnHeaderBand1: TQRBand

Left = 38

Top = 78

Width = 718

Height = 22

Frame.Color = clBlack

Frame.DrawTop = False

Frame.DrawBottom = False

Frame.DrawLeft = False

Frame.DrawRight = False

AlignToBottom = False

Color = clWhite

ForceNewColumn = False

ForceNewPage = False

Size.Values = (

58.2083333333333

1899.70833333333)

BandType = rbColumnHeader

object QRLabel2: TQRLabel

Left = 1

Top = 0

Width = 71

Height = 15

Frame.Color = clBlack

Frame.DrawTop = False

Frame.DrawBottom = True

Frame.DrawLeft = False

Frame.DrawRight = False

Size.Values = (

39.6875

2.64583333333333

0

187.854166666667)

Alignment = taLeftJustify

AlignToBand = False

AutoSize = False

AutoStretch = False

Caption = 'Dato'

Color = clWhite

Transparent = False

WordWrap = True

FontSize = 8

end

object QRLabel3: TQRLabel

Left = 82

Top = 0

Width = 176

Height = 15

Frame.Color = clBlack

Frame.DrawTop = False

Frame.DrawBottom = True

Frame.DrawLeft = False

Frame.DrawRight = False

Size.Values = (

39.6875

216.958333333333

0

465.666666666667)

Alignment = taLeftJustify

AlignToBand = False

AutoSize = False

AutoStretch = False

Caption = 'Tekst'

Color = clWhite

Transparent = False

WordWrap = True

FontSize = 8

end

object QRLabel4: TQRLabel

Left = 268

Top = 0

Width = 71

Height = 15

Frame.Color = clBlack

Frame.DrawTop = False

Frame.DrawBottom = True

Frame.DrawLeft = False

Frame.DrawRight = False

Size.Values = (

39.6875

709.083333333333

0

187.854166666667)

Alignment = taLeftJustify

AlignToBand = False

AutoSize = False

AutoStretch = False

Caption = 'Beløb'

Color = clWhite

Transparent = False

WordWrap = True

FontSize = 8

end

object QRLabel5: TQRLabel

Left = 349

Top = 0

Width = 71

Height = 15

Frame.Color = clBlack

Frame.DrawTop = False

Frame.DrawBottom = True

Frame.DrawLeft = False

Frame.DrawRight = False

Size.Values = (

39.6875

923.395833333333

0

187.854166666667)

Alignment = taLeftJustify

AlignToBand = False

AutoSize = False

AutoStretch = False

Caption = 'Saldo'

Color = clWhite

Transparent = False

WordWrap = True

FontSize = 8

end

end

object DetailBand1: TQRBand

Left = 38

Top = 100

Width = 718

Height = 22

Frame.Color = clBlack

Frame.DrawTop = False

Frame.DrawBottom = False

Frame.DrawLeft = False

Frame.DrawRight = False

AlignToBottom = False

Color = clWhite

ForceNewColumn = False

ForceNewPage = False

Size.Values = (

58.2083333333333

1899.70833333333)

BandType = rbDetail

object QRExpr1: TQRExpr

Left = 1

Top = 0

Width = 71

Height = 15

Frame.Color = clBlack

Frame.DrawTop = False

Frame.DrawBottom = False

Frame.DrawLeft = False

Frame.DrawRight = False

Size.Values = (

39.6875

2.64583333333333

0

187.854166666667)

Alignment = taLeftJustify

AlignToBand = False

AutoSize = False

AutoStretch = False

Color = clWhite

ResetAfterPrint = False

Transparent = False

WordWrap = True

Expression = '[Dato]'

FontSize = 8

end

object QRExpr2: TQRExpr

Left = 82

Top = 0

Width = 176

Height = 15

Frame.Color = clBlack

Frame.DrawTop = False

Frame.DrawBottom = False

Frame.DrawLeft = False

Frame.DrawRight = False

Size.Values = (

39.6875

216.958333333333

0

465.666666666667)

Alignment = taLeftJustify

AlignToBand = False

AutoSize = False

AutoStretch = False

Color = clWhite

ResetAfterPrint = False

Transparent = False

WordWrap = True

Expression = '[Tekst]'

FontSize = 8

end

object QRExpr3: TQRExpr

Left = 268

Top = 0

Width = 71

Height = 15

Frame.Color = clBlack

Frame.DrawTop = False

Frame.DrawBottom = False

Frame.DrawLeft = False

Frame.DrawRight = False

Size.Values = (

39.6875

709.083333333333

0

187.854166666667)

Alignment = taRightJustify

AlignToBand = False

AutoSize = False

AutoStretch = False

Color = clWhite

Master = QuickRep1

ResetAfterPrint = False

Transparent = False

WordWrap = True

Expression = 'Table1.Beløb'

Mask = '0.00'

FontSize = 8

end

object QRExpr4: TQRExpr

Left = 349

Top = 0

Width = 71

Height = 15

Frame.Color = clBlack

Frame.DrawTop = False

Frame.DrawBottom = False

Frame.DrawLeft = False

Frame.DrawRight = False

Size.Values = (

39.6875

923.395833333333

0

187.854166666667)

Alignment = taRightJustify

AlignToBand = False

AutoSize = False

AutoStretch = False

Color = clWhite

Master = QuickRep1

ResetAfterPrint = False

Transparent = False

WordWrap = True

Expression = '[Saldo]'

Mask = '0.00'

FontSize = 8

end

end

end

MVH

PEN