Class TTbPrinter (unit TbPrint) |
Inherits from
TComponent
constructor Create(AOwner: TComponent);
- IMPRESORA
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);
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
event OnPrinterError : TNotifyEvent
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;
constructor Create(AOwner: TComponent);
IMPRESORA
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);
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
event OnPrinterError : TNotifyEvent
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;