Class TTbPrinter (unit TbPrint)

Inherits from

TComponent

Constructors


constructor Create(AOwner: TComponent);

IMPRESORA


Functions

procedure Comenzar;


procedure Cuadro(X1,Y1,X2,Y2 : byte; Tipo : TLinea);

ESCRIBE UN TEXTO EN LA PAGINA

ESCRIBE UN TEXTO EN LA PAGINA


destructor Destroy;

WinPrinter := Printer.

procedure Escribir(X,Y : byte; Texto:string;Fnt : TFuente);

ESCRIBE UN TEXTO EN LA PAGINA

ELIMINA LA INFORMACION DE LAS PAGINAS AL FINALIZAR


procedure EscribirStd(X,Y : byte; Texto:string);

ELIMINA LA INFORMACION DE LAS PAGINAS AL FINALIZAR

ESCRIBE UN TEXTO EN LA PAGINA


procedure Finalizar;

PARA COMENZAR UNA NUEVA IMPRESION

PARA COMENZAR UNA NUEVA IMPRESION


function GetModeloName : String;


procedure GetModelos(Modelos : TStrings);


function GetPrintingHeight : integer;


function GetPrintingWidth : integer;

Brush.

procedure HacerHoja(Numero : integer; Hoja : TMetaFile;ToPrint:boolean);


procedure Imprimir;

ESCRIBE UNA LINEA VERTICAL

MUESTRA LA IMPRESION EN PANTALLA


procedure LineaHorizontal(X1,X2,Y : byte; Tipo : TLinea);

ESCRIBE UN RECTANGULO

ESCRIBE UN RECTANGULO


procedure LineaVertical(X,Y1,Y2 : byte; Tipo : TLinea);

ESCRIBE UNA LINEA HORIZONTAL

ESCRIBE UNA LINEA HORIZONTAL


procedure NuevaPagina;

MANDA LA IMPRESION A LA IMPRESORA

IMPRIMIR


procedure SetModeloName(Nombre : String);

CREA UNA NUEVA PAGINA

CREA UNA NUEVA PAGINA


procedure Clear;


function GetModeloRealName(Model : TModelo) : String;


function GetPaginas : byte;


function ImprimirPagina(Numero:integer) : boolean;

MUESTRA LA IMPRESION EN PANTALLA

function ImprimirPaginaFast(Numero:integer) : boolean;

MANDA UNA PAGINA A LA IMPRESORA

1056;


procedure ImprimirTodo;

MANDA UNA PAGINA A LA IMPRESORA

si hay un error durante la impresion.


procedure PreviewReal;

ESCRIBE UNA LINEA VERTICAL

procedure SetFastPuerto(Puerto : string);

Epson_FX :

procedure SetModelo(Nombre : TModelo);


Properties

property Columnas : byte

MODO DE IMPRESION

property CompanyData : string


property Copies : integer


property FastFont : TFuente

CANTIDAD DE PAGINAS

property FastPort : string

MODELO DE LA IMPRESORA

property FastPrinter : TModelo

Published declarations

property Mode : TPrinterMode

PUERTO DE LA IMPRESORA

property Paginas : byte

CANTIDAD DE COLUMNAS EN LA PAGINA

property Preview : boolean


property PrintingHeight : integer


property PrintingWidth : integer


property Title : string


property WinPort : string


property WinPrinter : string


property Zoom : TInitialZoom

SE IMPRIME EN TODOS LOS REPORTES

property Lineas : byte


Events

event OnPrinterError : TNotifyEvent


Variables

PageHeight : integer;

ANCHO DE PAGINA EN PIXELS

PageHeightP : double;

ANCHO DE PAGINA EN PULGADAS

PageOrientation : TPrinterOrientation;

ALTO DE PAGINA EN PULGADAS

PageWidth : integer;

PAGINA ACTUAL

PageWidthP : double;

ALTO DE PAGINA EN PIXELS

PaginaActual : byte;

Public declarations

ReGenerate : Procedure of object;

ORIENTACION DE LA PAGINA

SendToExcel : Procedure of object;


FColumnas : byte;

CANTIDAD DE LINEAS POR PAGINA

FCopias : integer;

Almacenamiento de las páginas

FDatosEmpresa : String;


FFastPuerto : string;

MODELO DE IMPRESORA

FFuente : TFuente;

CANTIDAD DE COLUMNAS EN LA PAGINA

FLineas : byte;

PUERTO DE LA IMPRESORA

FModelo : TModelo;

INFORMACION QUE SE IMPRIME EN TODOS LOS REPORTES

FModo : TPrinterMode;

TIPO DE LETRA

fOnPrinterError : TNotifyEvent;

Private declarations

FPreview : boolean;


FTitulo : string;


FWinPort : string;

NOMBRE DE LA IMPRESORA EN WINDOWS

FWinPrinter : string;


FZoom : TInitialZoom;


LasPaginas : TList;

MODO DE IMPRESION (NORMAL/MEJORADO

PreviewForm : TPrintPreview;


PRNBold : string;


PRNCompOFF : string;


PRNCompON : string;


PRNItalics : string;


PRNNormal : string;


PRNReset : string;


PRNSetup : string;


PRNULineOFF : string;


PRNULineON : string;



Constructors


constructor Create(AOwner: TComponent);

IMPRESORA


Functions


procedure Comenzar;


procedure Cuadro(X1,Y1,X2,Y2 : byte; Tipo : TLinea);

ESCRIBE UN TEXTO EN LA PAGINA

ESCRIBE UN TEXTO EN LA PAGINA


destructor Destroy;

WinPrinter := Printer.Printers[Printer.PrinterIndex];


procedure Escribir(X,Y : byte; Texto:string;Fnt : TFuente);

ESCRIBE UN TEXTO EN LA PAGINA

ELIMINA LA INFORMACION DE LAS PAGINAS AL FINALIZAR


procedure EscribirStd(X,Y : byte; Texto:string);

ELIMINA LA INFORMACION DE LAS PAGINAS AL FINALIZAR

ESCRIBE UN TEXTO EN LA PAGINA


procedure Finalizar;

PARA COMENZAR UNA NUEVA IMPRESION

PARA COMENZAR UNA NUEVA IMPRESION


function GetModeloName : String;


procedure GetModelos(Modelos : TStrings);


function GetPrintingHeight : integer;


function GetPrintingWidth : integer;

Brush.Color := clWhite;


procedure HacerHoja(Numero : integer; Hoja : TMetaFile;ToPrint:boolean);


procedure Imprimir;

ESCRIBE UNA LINEA VERTICAL

MUESTRA LA IMPRESION EN PANTALLA


procedure LineaHorizontal(X1,X2,Y : byte; Tipo : TLinea);

ESCRIBE UN RECTANGULO

ESCRIBE UN RECTANGULO


procedure LineaVertical(X,Y1,Y2 : byte; Tipo : TLinea);

ESCRIBE UNA LINEA HORIZONTAL

ESCRIBE UNA LINEA HORIZONTAL


procedure NuevaPagina;

MANDA LA IMPRESION A LA IMPRESORA

IMPRIMIR


procedure SetModeloName(Nombre : String);

CREA UNA NUEVA PAGINA

CREA UNA NUEVA PAGINA


procedure Clear;


function GetModeloRealName(Model : TModelo) : String;


function GetPaginas : byte;


function ImprimirPagina(Numero:integer) : boolean;

MUESTRA LA IMPRESION EN PANTALLA


function ImprimirPaginaFast(Numero:integer) : boolean;

MANDA UNA PAGINA A LA IMPRESORA

1056;


procedure ImprimirTodo;

MANDA UNA PAGINA A LA IMPRESORA

si hay un error durante la impresion...


procedure PreviewReal;

ESCRIBE UNA LINEA VERTICAL


procedure SetFastPuerto(Puerto : string);

Epson_FX :


procedure SetModelo(Nombre : TModelo);


Properties


property Columnas : byte

MODO DE IMPRESION


property CompanyData : string


property Copies : integer


property FastFont : TFuente

CANTIDAD DE PAGINAS


property FastPort : string

MODELO DE LA IMPRESORA


property FastPrinter : TModelo

Published declarations


property Mode : TPrinterMode

PUERTO DE LA IMPRESORA


property Paginas : byte

CANTIDAD DE COLUMNAS EN LA PAGINA


property Preview : boolean


property PrintingHeight : integer


property PrintingWidth : integer


property Title : string


property WinPort : string


property WinPrinter : string


property Zoom : TInitialZoom

SE IMPRIME EN TODOS LOS REPORTES


property Lineas : byte


Events


event OnPrinterError : TNotifyEvent


Variables


PageHeight : integer;

ANCHO DE PAGINA EN PIXELS


PageHeightP : double;

ANCHO DE PAGINA EN PULGADAS


PageOrientation : TPrinterOrientation;

ALTO DE PAGINA EN PULGADAS


PageWidth : integer;

PAGINA ACTUAL


PageWidthP : double;

ALTO DE PAGINA EN PIXELS


PaginaActual : byte;

Public declarations


ReGenerate : Procedure of object;

ORIENTACION DE LA PAGINA


SendToExcel : Procedure of object;


FColumnas : byte;

CANTIDAD DE LINEAS POR PAGINA


FCopias : integer;

Almacenamiento de las páginas


FDatosEmpresa : String;


FFastPuerto : string;

MODELO DE IMPRESORA


FFuente : TFuente;

CANTIDAD DE COLUMNAS EN LA PAGINA


FLineas : byte;

PUERTO DE LA IMPRESORA


FModelo : TModelo;

INFORMACION QUE SE IMPRIME EN TODOS LOS REPORTES


FModo : TPrinterMode;

TIPO DE LETRA


fOnPrinterError : TNotifyEvent;

Private declarations


FPreview : boolean;


FTitulo : string;


FWinPort : string;

NOMBRE DE LA IMPRESORA EN WINDOWS


FWinPrinter : string;


FZoom : TInitialZoom;


LasPaginas : TList;

MODO DE IMPRESION (NORMAL/MEJORADO


PreviewForm : TPrintPreview;


PRNBold : string;


PRNCompOFF : string;


PRNCompON : string;


PRNItalics : string;


PRNNormal : string;


PRNReset : string;


PRNSetup : string;


PRNULineOFF : string;


PRNULineON : string;