Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Impresión
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 15-12-2014
Avatar de aguml
aguml aguml is offline
Miembro
 
Registrado: may 2013
Posts: 885
Poder: 11
aguml Va por buen camino
Problema al imprimir (se queda en la cola)

Ahora estoy liado con otra cosa, Hago esto para imprimir los trozos de imagen y funciona a medias. Si Elijo la impresora de NitroPDF sale la ventanita chica que dice Printing y que trae el ProgressBar y se rellena rapidamente y aparece el icono de impresora en la barra de tareas pero no veo que pase nada. Si lo hago con la impresora fisica si funciona.
Este es el codigo:

Código PHP:
void __fastcall TForm1::ButtonPrintImagesClick(TObject *Sender)
{
   
TInfoPapel info;

   if(
PrintDialog1->Execute())
   {
      
info ObtenerTamPapel();
      if(
info.orientacion == 1//Si la orientacion es vertical seguimos adelante
      
{
         switch (
info.tamPapel)
         {
            case 
DMPAPER_A5:
               
Form2->VividReport1->PaperSize A5;
               
Form2->ShowModal();
               break;

            case 
DMPAPER_A4:
               
Form2->VividReport1->PaperSize A4;
               
Form2->ShowModal();
               break;

            case 
DMPAPER_A3:
               
Form2->VividReport1->PaperSize A3;
               
Form2->ShowModal();
               break;

            default:
               
MessageBox(Application->Handle"El tamaño del papel seleccionado no es válido. Usa A5, A4, o A3""Error"MB_OK |MB_ICONERROR MB_APPLMODAL);
         }
      }else
      { 
//Si la orientacion del papel no es vertical no seguimos y avisamos de que no se puede usar otra
         
MessageBox(Handle"No se puede elegir la orientación de papel horizontal.\nEsta aplicación solo funciona con orientación vertical." "Error"MB_OK |MB_ICONERROR MB_APPLMODAL);
      }
   }
}
//---------------------------------------------------------------------------

TInfoPapel ObtenerTamPapel(void)
{
   
char MyPrinter[100];
   
char MyDriver[100];
   
char MyPort[100];
   
THandle hDevMode;
   
PDEVMODE pDevMode;
   
TInfoPapel infoPapel;

   
Printer()->GetPrinter(MyPrinterMyDriverMyPorthDevMode);

   if(
hDevMode){
      
pDevMode = (PDEVMODE)GlobalLock((void*)hDevMode);
      if(
pDevMode){
         
//El tamaño del papel debe ser para A4 DMPAPER_A4 o para A3 DMPAPER_A3
         //La orientacion vertical es 1 y la horizontal 2
         
infoPapel.tamPapel pDevMode->dmPaperSize;
         
infoPapel.orientacion pDevMode->dmOrientation;
         
GlobalUnlock((void*)hDevMode);
      }
      
//GlobalFree((void*)hDevMode);
   
}
   return 
infoPapel;
}
//---------------------------------------------------------------------------

void __fastcall TForm2::BitBtnImprimirClick(TObject *Sender)
{
        
VividReport1->Print();

¿alguna idea de que puede estar pasando?
Responder Con Cita
  #2  
Antiguo 15-12-2014
Avatar de aguml
aguml aguml is offline
Miembro
 
Registrado: may 2013
Posts: 885
Poder: 11
aguml Va por buen camino
perdon, no sabia que existia un apartado para impresion. Gracias por moverlo.
Responder Con Cita
  #3  
Antiguo 19-12-2014
Avatar de aguml
aguml aguml is offline
Miembro
 
Registrado: may 2013
Posts: 885
Poder: 11
aguml Va por buen camino
Al final lo he podido solucionar.
Despues de mucho buscar he podido dar con el problema y es que VividReport tiene su propio dialogo de configuracion de impresora y no usa el que trae Builder, o sea, hay que hacer VividReport1->PrinterSetup() y así nos muestra su propio PrintDialog que es identico en aspecto.
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Porque deja de imprimir, siendo que tiene muchos doc. pend. en la cola ?? AGAG4 Windows 3 17-03-2009 23:41:46
Imprimir Cola en Fiscal HASAR golf2008 Conexión con bases de datos 18 12-06-2008 15:38:29
Problema con rave report. Se queda generando páginas como si estuviera en un ciclo mglucero Impresión 1 21-06-2007 19:43:49
En una red wireless, impresora compartida se queda a medio de imprimir. Wonni Redes 2 02-03-2007 18:05:34
Imprimir en una cola, impresora laser sansumg serhasae Varios 1 16-08-2005 08:33:06


La franja horaria es GMT +2. Ahora son las 03:25:21.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi