upageset.~dfm

delphi下自制报表预览的例子,还不完善,如果有疑问,给作者写信,

object frmPageSet: TfrmPageSet
  Left = 250
  Top = 182
  ActiveControl = btnOK
  BorderStyle = bsDialog
  Caption = #25171#21360#35774#32622
  ClientHeight = 392
  ClientWidth = 477
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 32
    Top = 24
    Width = 42
    Height = 13
    Caption = #25171#21360#26426'  '
  end
  object Label2: TLabel
    Left = 32
    Top = 80
    Width = 30
    Height = 13
    Caption = #32440#22411'  '
  end
  object Label8: TLabel
    Left = 328
    Top = 40
    Width = 48
    Height = 13
    Caption = #25171#21360#65306#12288
    Enabled = False
    Visible = False
  end
  object Label9: TLabel
    Left = 40
    Top = 248
    Width = 36
    Height = 13
    Caption = #21103#26412#12288
  end
  object Label10: TLabel
    Left = 184
    Top = 280
    Width = 24
    Height = 13
    Caption = #20221#12288
  end
  object cbPrinter: TComboBox
    Left = 32
    Top = 40
    Width = 289
    Height = 21
    Style = csDropDownList
    ItemHeight = 13
    TabOrder = 0
  end
  object cbPaper: TComboBox
    Left = 32
    Top = 96
    Width = 145
    Height = 21
    Style = csDropDownList
    ItemHeight = 13
    ItemIndex = 1
    TabOrder = 1
    Text = 'A4'
    Items.Strings = (
      'A3'
      'A4'
      'A4Small'
      'A5'
      'B4'
      'B5'
      'Folio'
      'Quarto'
      'qr10X14'
      'qr11X17'
      'Note'
      'Env9'
      'Env10'
      'Env11'
      'Env12'
      'Env14'
      'CSheet'
      'DSheet'
      'ESheet'
      'Letter'
      'LetterSmall'
      'Tabloid'
      'Ledger'
      'Legal'
      'Statement'
      'Executive')
  end
  object GroupBox1: TGroupBox
    Left = 32
    Top = 136
    Width = 145
    Height = 89
    Caption = #26041#21521
    TabOrder = 2
    object rbPortrait: TRadioButton
      Left = 24
      Top = 32
      Width = 113
      Height = 17
      Caption = #32437#21521
      Checked = True
      TabOrder = 0
      TabStop = True
    end
    object rbOrientation: TRadioButton
      Left = 24
      Top = 56
      Width = 113
      Height = 17
      Caption = #27178#21521
      TabOrder = 1
    end
  end
  object GroupBox2: TGroupBox
    Left = 208
    Top = 80
    Width = 233
    Height = 169
    Caption = #39029#36793#36317'('#21333#20301#65306'MM)'
    TabOrder = 3
    object Label3: TLabel
      Left = 16
      Top = 40
      Width = 36
      Height = 13
      Caption = #19978#65306#12288
    end
    object Label4: TLabel
      Left = 16
      Top = 72
      Width = 36
      Height = 13
      Caption = #19979#65306#12288
    end
    object Label5: TLabel
      Left = 16
      Top = 104
      Width = 36
      Height = 13
      Caption = #24038#65306#12288
    end
    object Label6: TLabel
      Left = 16
      Top = 136
      Width = 36
      Height = 13
      Caption = #21491#65306#12288
    end
    object edtTop: TEdit
      Left = 72
      Top = 32
      Width = 121
      Height = 21
      TabOrder = 0
      Text = '10'
      OnKeyPress = edtCountKeyPress
    end
    object udTop: TUpDown
      Left = 193
      Top = 32
      Width = 16
      Height = 21
      Associate = edtTop
      Position = 10
      TabOrder = 1
    end
    object edtBottom: TEdit
      Left = 72
      Top = 64
      Width = 121
      Height = 21
      TabOrder = 2
      Text = '10'
      OnKeyPress = edtCountKeyPress
    end
    object udBottom: TUpDown
      Left = 193
      Top = 64
      Width = 16
      Height = 21
      Associate = edtBottom
      Position = 10
      TabOrder = 3
    end
    object edtLeft: TEdit
      Left = 72
      Top = 96
      Width = 121
      Height = 21
      TabOrder = 4
      Text = '10'
      OnKeyPress = edtCountKeyPress
    end
    object udLeft: TUpDown
      Left = 193
      Top = 96
      Width = 16
      Height = 21
      Associate = edtLeft
      Position = 10
      TabOrder = 5
    end
    object edtRight: TEdit
      Left = 72
      Top = 128
      Width = 121
      Height = 21
      TabOrder = 6
      Text = '10'
      OnKeyPress = edtCountKeyPress
    end
    object udRight: TUpDown
      Left = 193
      Top = 128
      Width = 16
      Height = 21
      Associate = edtRight
      Position = 10
      TabOrder = 7
    end
  end
  object GroupBox3: TGroupBox
    Left = 320
    Top = 8
    Width = 145
    Height = 25
    Caption = #39029#38754#33539#22260
    Enabled = False
    TabOrder = 4
    Visible = False
    object Label11: TLabel
      Left = 24
      Top = 136
      Width = 87
      Height = 13
      Caption = #39029#30721#22914#65306'1,3,5-12'
    end
    object rbAll: TRadioButton
      Left = 24
      Top = 32
      Width = 113
      Height = 17
      Caption = #20840#37096
      Checked = True
      TabOrder = 0
      TabStop = True
      OnClick = rbAllClick
    end
    object rbCurr: TRadioButton
      Left = 24
      Top = 56
      Width = 113
      Height = 17
      Caption = #24403#21069#39029#38754
      TabOrder = 1
      OnClick = rbCurrClick
    end
    object rbRange: TRadioButton
      Left = 24
      Top = 80
      Width = 113
      Height = 17
      Caption = #39029#30721#33539#22260
      TabOrder = 2
      OnClick = rbRangeClick
    end
    object edtRange: TEdit
      Left = 24
      Top = 104
      Width = 97
      Height = 21
      Enabled = False
      TabOrder = 3
      OnKeyPress = edtRangeKeyPress
    end
  end
  object dbJO: TComboBox
    Left = 328
    Top = 56
    Width = 145
    Height = 21
    Style = csDropDownList
    Enabled = False
    ItemHeight = 13
    ItemIndex = 0
    TabOrder = 5
    Text = #25152#26377#39029
    Visible = False
    Items.Strings = (
      #25152#26377#39029
      #22855#25968#39029
      #20598#25968#39029)
  end
  object dbDuplex: TCheckBox
    Left = 224
    Top = 272
    Width = 97
    Height = 17
    Caption = #21452#38754#25171#21360
    TabOrder = 6
  end
  object edtCount: TEdit
    Left = 40
    Top = 272
    Width = 121
    Height = 21
    TabOrder = 7
    Text = '1'
    OnKeyPress = edtCountKeyPress
  end
  object udCount: TUpDown
    Left = 161
    Top = 272
    Width = 16
    Height = 21
    Associate = edtCount
    Min = 1
    Position = 1
    TabOrder = 8
  end
  object btnOK: TButton
    Left = 112
    Top = 336
    Width = 75
    Height = 25
    Caption = #30830#23450
    Default = True
    TabOrder = 9
    OnClick = btnOKClick
  end
  object btnCancel: TButton
    Left = 272
    Top = 336
    Width = 75
    Height = 25
    Caption = #36820#22238
    TabOrder = 10
    OnClick = btnCancelClick
  end
end