打印编程

开发平台：
Delphi

uClientMain.dfm：源码内容
							object frmClientMain: TfrmClientMain
  Left = 334
  Top = 194
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = #25105#26159#23458#25143#31471
  ClientHeight = 333
  ClientWidth = 350
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 350
    Height = 29
    ButtonHeight = 21
    ButtonWidth = 85
    Caption = 'ToolBar1'
    Enabled = False
    ShowCaptions = True
    TabOrder = 0
    object tbConnected: TToolButton
      Left = 0
      Top = 2
      Caption = #36830#25509#26381#21153#22120#31471
      ImageIndex = 0
      OnClick = tbConnectedClick
    end
    object ToolButton1: TToolButton
      Left = 85
      Top = 2
      Width = 1
      Caption = 'ToolButton1'
      ImageIndex = 1
      Style = tbsSeparator
    end
    object tbSend: TToolButton
      Left = 86
      Top = 2
      Caption = #21457#36865#25968#25454
      ImageIndex = 1
      OnClick = tbSendClick
    end
    object ToolButton2: TToolButton
      Left = 171
      Top = 2
      Width = 3
      Caption = 'ToolButton2'
      ImageIndex = 2
      Style = tbsSeparator
    end
    object tbDisconnected: TToolButton
      Left = 174
      Top = 2
      Caption = #26029#24320#26381#21153#22120
      ImageIndex = 3
      OnClick = tbDisconnectedClick
    end
    object ToolButton3: TToolButton
      Left = 259
      Top = 2
      Width = 3
      Caption = 'ToolButton3'
      ImageIndex = 3
      Style = tbsSeparator
    end
    object tbClose: TToolButton
      Left = 262
      Top = 2
      Caption = #20851#38381
      ImageIndex = 2
      OnClick = tbCloseClick
    end
  end
  object StatusBar: TStatusBar
    Left = 0
    Top = 314
    Width = 350
    Height = 19
    Panels = <
      item
        Width = 50
      end>
    SimplePanel = False
  end
  object Panel1: TPanel
    Left = 0
    Top = 29
    Width = 350
    Height = 285
    Align = alClient
    BevelOuter = bvNone
    Caption = 'Panel1'
    TabOrder = 2
    object Label2: TLabel
      Left = 10
      Top = 12
      Width = 60
      Height = 13
      Caption = #25509#25910#31471'IP:'
    end
    object Label1: TLabel
      Left = 180
      Top = 12
      Width = 46
      Height = 13
      Caption = #31471#21475#21495':'
    end
    object Label3: TLabel
      Left = 11
      Top = 40
      Width = 59
      Height = 13
      Caption = #21457#36865#20869#23481':'
    end
    object Edit3: TEdit
      Left = 70
      Top = 4
      Width = 106
      Height = 21
      TabOrder = 1
      Text = '127.0.0.1'
    end
    object Edit1: TEdit
      Left = 71
      Top = 32
      Width = 223
      Height = 21
      TabOrder = 2
      Text = '1234567891234'
      OnKeyUp = Edit1KeyUp
    end
    object Button1: TButton
      Left = 298
      Top = 4
      Width = 49
      Height = 21
      Caption = #35774#32622
      TabOrder = 0
      OnClick = Button1Click
    end
    object btnSend: TBitBtn
      Left = 298
      Top = 31
      Width = 50
      Height = 20
      Caption = #21457#36865
      TabOrder = 3
      OnClick = tbSendClick
    end
    object GroupBox1: TGroupBox
      Left = 1
      Top = 64
      Width = 345
      Height = 222
      Caption = #26381#21153#22120#31471#21453#39304#30340#20449#24687#20869#23481
      TabOrder = 4
      object Memo1: TMemo
        Left = 2
        Top = 17
        Width = 341
        Height = 201
        Color = clGradientActiveCaption
        ReadOnly = True
        TabOrder = 0
      end
    end
    object SpinEdit1: TSpinEdit
      Left = 230
      Top = 4
      Width = 64
      Height = 22
      MaxValue = 0
      MinValue = 0
      TabOrder = 5
      Value = 8080
    end
  end
  object ClientSocket: TClientSocket
    Active = False
    ClientType = ctNonBlocking
    Port = 1025
    OnConnecting = ClientSocketConnecting
    OnConnect = ClientSocketConnect
    OnDisconnect = ClientSocketDisconnect
    OnRead = ClientSocketRead
    OnError = ClientSocketError
    Left = 176
    Top = 32
  end
end

						