u_clientessimples.pas

print component for dot matrix

unit U_clientessimples;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, StdCtrls, Buttons, Db, DBTables, RDprint;

type
  Tdfm_clientessimples = class(TForm)
    Table1: TTable;
    DataSource1: TDataSource;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    RDprint1: TRDprint;
    Label1: TLabel;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    Bevel1: TBevel;
    Table1Codigo: TIntegerField;
    Table1Razao: TStringField;
    Table1Endereco: TStringField;
    Table1Bairro: TStringField;
    Table1Cidade: TStringField;
    Table1Estado: TStringField;
    Table1Cep: TStringField;
    Table1Data_Compra: TDateField;
    Table1Valor_Compra: TBCDField;
    Table1CGC_CPF: TStringField;
    Table1Inscricao: TStringField;
    Memo1: TMemo;
    Edit1: TEdit;
    Label3: TLabel;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure RDprint1BeforeNewPage(Sender: TObject; Pagina: Integer);
    procedure RDprint1NewPage(Sender: TObject; Pagina: Integer);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dfm_clientessimples: Tdfm_clientessimples;
  conta : integer;
  linha : integer; // variavel global para controle de salto de pagina...
implementation

{$R *.DFM}

procedure Tdfm_clientessimples.BitBtn1Click(Sender: TObject);
begin
     // Ajusta preview de acordo com a op玢o do cliente...
     rdprint1.OpcoesPreview.Preview := checkbox1.Checked;
     rdprint1.OpcoesPreview.PreviewZoom := strtoint(edit1.text);
     conta := 0;
     rdprint1.abrir;            // Inicia a montagem do relat髍io...

     // Chama setup e se clicar em "CANCELAR" ent鉶 abandona...
     if checkbox2.Checked then
        if RDprint1.Setup = false then
           begin
           showmessage('Cancelado pelo usu醨io...');
           exit;
           end;

     linha            := 8;     // Zera variavel para iniciar o relat髍io...
     table1.active    := true;  // Abre a tabela...
     table1.First;
     while not table1.eof do
        begin
        if linha > 63 then // Salto de Pagina chama automaticamente cabecalho/rodape
           rdprint1.novapagina;

        rdprint1.imp (linha,01,formatfloat('0000',table1codigo.value));
        rdprint1.imp (linha,07,table1razao.value);
        rdprint1.imp (linha,44,table1cidade.value);
        rdprint1.imp (linha,66,table1estado.value);
        rdprint1.imp (linha,70,table1Data_Compra.asstring);
        // Este comando imprime valores alinhados