Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Servers
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 31-10-2003
xerkan xerkan is offline
Miembro
 
Registrado: jun 2003
Posts: 89
Poder: 21
xerkan Va por buen camino
Salto de pagina en excel

Alguien me podia ayudar a hacer un salto de pagina para el objeto: Excel:=CreateOleObject('Excel.Application') se que la macro que crea el excel para hacer el salto de pagina es esta:

ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell

Pero no se muy bien como pasarsela al delphi sobre el objeto excel para q la ejecute, ya que intento hacer:

Excel.ActiveWorkbook.WorkSheets[1].HPageBreaks.Add;

y me indica que el numero de parametros no es valido y no se q parametro indicarle

Última edición por xerkan fecha: 31-10-2003 a las 11:23:27.
Responder Con Cita
  #2  
Antiguo 31-10-2003
Descendents Descendents is offline
Miembro
 
Registrado: may 2003
Ubicación: Barcelona
Posts: 396
Poder: 21
Descendents Va por buen camino
No se si te entendido.
Pero a ver si esto te sirve

cuando me hablas de salto de pagina supongo que hablas de ir a otra hoja no?

Yo lo que hago es que creo, primero el numero de hojas que necesitare, y luego me muevo por ellas.

Código:
  ExcelApplication1.Connect; //Conectamos con Excel
  ExcelApplication1.Visible[0]:=visible; // lo mostramos
  ExcelWorkBook1.ConnectTo( //Añadimos un libro
  ExcelApplication1.Workbooks.Add(xlWorksheet, 0));//si aqui en el 0 pongo emptyparam me hace tres hojas.Asi solo una
  excelworkbook1.Sheets.Add(emptyparam,EmptyParam,7,1,0); //el primer param es el numero de paginas +1 ya hecha de antes



Entonces me muevo por las hojas asi

ExcelWorkSheet1.ConnectTo( // y obtenemos una de sus hojas
ExcelApplication1.Sheets[n] as _WorkSheet);
ExcelWorkSheet1.Name := TITULO HOJA';

n es un int del 1 al 8.Que son las páginas que tienes
Responder Con Cita
  #3  
Antiguo 31-10-2003
xerkan xerkan is offline
Miembro
 
Registrado: jun 2003
Posts: 89
Poder: 21
xerkan Va por buen camino
No me refiero a eso, me refiero a crear un salto de pagina (en excel menu insertar/salto de pagina) o sea en la hoja forzar a que el contenido de esta se imprima en la pagina siguiente si haber acabado la actual
Responder Con Cita
  #4  
Antiguo 31-10-2003
Descendents Descendents is offline
Miembro
 
Registrado: may 2003
Ubicación: Barcelona
Posts: 396
Poder: 21
Descendents Va por buen camino
A OK

Yo lo que hice fue contar las lineas que tenia una pagina, y con un contador sabia cuando estaba en una pagina o en otra.

que me faltaban 10 lineas para acabar la pagina, y queria empezar en la siguiente pagina incrementaba el numero de linea.

Lo malo es que necesitas un mismo tipo de fuente y al mismo tamaño todas las lineas.

Un poco chapuzero.

Pero si tu encuentras la manera, porfavor dila, que me interesaria.

Gracias
Responder Con Cita
  #5  
Antiguo 31-10-2003
xerkan xerkan is offline
Miembro
 
Registrado: jun 2003
Posts: 89
Poder: 21
xerkan Va por buen camino
He encontrado esta pagina en la que explica como hacer casi cualquier cosa bajo excel en delphi lo unico malo es que las explicaciones de los comandos debe estar en chino o vete tu a saber, pero como ponen los comando a hacer mas o menos se entiende, la pagina es esta:

http://delphi.cxc.cc/jiqiao/016.htm

en concreto el comando que encontrado para hacer el salto de pagina (vere haber si ahi alguno mejor) es este:

ExcelApp.WorkSheets[1].Rows[8].PageBreak := 1;
Responder Con Cita
Respuesta



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


La franja horaria es GMT +2. Ahora son las 19:52:49.


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