| Ver tema anterior :: Ver tema siguiente |
| Autor |
Mensaje |
Cesar C. Salazar Gonzalez
Master
Registrado: 01 Oct 2002Mensajes: 2155Ubicación: San Cristóbal de Las Casas, Chiapas
|
 Publicado: Vie 07 Nov, 2003 12:59 am Asunto: ayuda con funciones, para mini printers |
 |
|
Alguien tene funciones de impresion para mini printers, o algo por el estilo..
_________________
 |
|
| Volver arriba |
|
 |
Touchsoftwares
Master
Registrado: 16 Dic 2002Mensajes: 869Ubicación: MEXICO Playa del Carmen
|
| Publicado: Vie 07 Nov, 2003 4:35 am Asunto: |
|
|
MIra las miniprinter yo las menaje con el driver generico texto, ai quelas funciones ue tengo son de impresiones directas SIN el objeto tprinter te servirian?
_________________
Ing. Gabriel Góngora Navarrete
TouchSoftwares Inc
http://www.touchsoftwares.com |
|
| Volver arriba |
|
|
Cesar C. Salazar Gonzalez
Master
Registrado: 01 Oct 2002Mensajes: 2155Ubicación: San Cristóbal de Las Casas, Chiapas
|
| Publicado: Vie 07 Nov, 2003 6:21 am Asunto: |
|
|
Claro que me interesan, cual quier cosa que pudea ayudar, se recibe con gusto. gracias,
_________________
|
|
| Volver arriba |
|
|
Touchsoftwares
Master
Registrado: 16 Dic 2002Mensajes: 869Ubicación: MEXICO Playa del Carmen
|
| Publicado: Vie 07 Nov, 2003 7:14 am Asunto: |
|
|
| Código: |
// FUNCIONES PARA IMPRESION DE NOTAS O FACTURAS
//------------------------------------------------------------------
// Funcion para centrar una cadena en una longitud determinada
AnsiString StrCentra(AnsiString cad,int Long)
{
AnsiString dev="";
for(int i=1;i<=(Long-cad.Length())/2;i++)
{dev=dev+" "; }
dev=dev+cad+dev;
return dev;
}
//------------------------------------------------------------------
// Funcion para Justificar a la derecha en una longitud determinada
AnsiString StrDerecha(AnsiString cad,int Long)
{
AnsiString dev="";
for(int i=1;i<=(Long-cad.Length());i++)
{dev=dev+" "; }
dev=dev+cad;
return dev;
}
//------------------------------------------------------------------
// Funcion para Justificar a la Izquierda una cadena en una longitud determinada
AnsiString StrIzquierda(AnsiString cad,int Long)
{
AnsiString dev="";
for(int i=1;i<=(Long-cad.Length());i++)
{dev=dev+" "; }
dev=cad+dev;
return dev;
}
// Funcion para Colocar CEROS a la izquierda de los numero de FOlio
AnsiString StrZero(AnsiString cad,int Longitud) // Para Folio y Facturacion
{
int CantidaddeCeros=0;
cad=cad.Trim();
CantidaddeCeros=Longitud-cad.Length();
for(int i=0;i<CantidaddeCeros;i++)
{
cad="0"+cad;
};
return cad;
}
|
Ahora u ejemplo de impresion para miniprinter, lo que hago es colocar el ticket o lo que sea en un objeto ListBox
| Código: |
//---------------------------------------------
void TfrmImprimirCheque::ImprimirModoTexto(void)
{
// Printer port name or network printer name (e.g.: "\\SERVER\LASER")
String printerPort = "COM1:";
AnsiString vLinea="";
HANDLE printerHandle = 0;
// Neccesary for network printers; Windows 9x ignores last member,
// but it's neccesary for NT
PRINTER_DEFAULTS printerOptions;
printerOptions.pDatatype = "RAW";
printerOptions.pDevMode = NULL;
printerOptions.DesiredAccess = PRINTER_ACCESS_USE;
if (!OpenPrinter("LPT1:", &printerHandle, &printerOptions))
{
throw "Error when opening printer port";
}
DOC_INFO_1 docInfo;
docInfo.pDocName = "Document name";
docInfo.pOutputFile = NULL;
docInfo.pDatatype = "RAW";
StartDocPrinter(printerHandle, 1, (LPBYTE)&docInfo);
StartPagePrinter(printerHandle);
// Main printing loop (assumed finishedPrinting is a boolean flag
// which becomes true when all the text is printed)
for(int i=0;i < lstCheque->Items->Count;i++)
{
vLinea=lstCheque->Items->Strings[i];
// Print a sample line
char* lineToPrint = "";
DWORD numBytesWritten;
lineToPrint=vLinea.c_str(); // convertir linea a cadena
BOOL correct = WritePrinter(printerHandle, (LPVOID*)lineToPrint,
strlen(lineToPrint), &numBytesWritten);
}
EndDocPrinter(printerHandle);
ClosePrinter(printerHandle);
}
//---------------------------------------------------------------------------
|
_________________
Ing. Gabriel Góngora Navarrete
TouchSoftwares Inc
http://www.touchsoftwares.com |
|
| Volver arriba |
|
|
ikis
Master
Registrado: 28 Dic 2002Mensajes: 703Ubicación: Madrid, España
|
| Publicado: Sab 19 Jun, 2004 12:10 pm Asunto: |
|
|
esta función anda con impresoras fiscales?
Necesito imprimir en una Epson TM 2000 AF
gracias por su atención |
|
| Volver arriba |
|
|
|
FAQ
Buscar
Miembros
Grupos de Usuarios
Registrarse
Perfil
Entra para ver tus mensajes privados
Entrar
