Utilizamos cookies propias y de terceros para mejorar la experiencia de navegación, y ofrecer contenidos y publicidad de interés.
Al continuar con la navegación entendemos que se acepta nuestra política de cookies.
Iniciar sesión Cerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta

FoxPro/Visual FoxPro Avanzado - formato de impresion a hoja de excel

  Imprimir  
Vista:

formato de impresion a hoja de excel

Publicado por fporras (30 intervenciones) el 08/08/2007 01:23:00
Tengo una aplicacion que hace una automatizacion a excel, hasta aqui todo bien el problema es que tengo que estar formateando la hoja para poderla imprimir, hay alguna forma de darle formato de impresion para no tenerlo que estar haciendo manualmente con cada hoja.

utilizo vfp ver 6

Saludos y gracias por su ayuda
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:formato de impresion a hoja de excel

Publicado por Oscar Meza (78 intervenciones) el 08/08/2007 15:10:21
Hola, si existe una forma muy sencilla y trabajando con las macros de Excel, a tu mail enviare un ejemplo en un form + un video explicativo.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:formato de impresion a hoja de excel

Publicado por Oscar Meza (78 intervenciones) el 08/08/2007 15:50:35
Lo siento, tu mail no existe tendras otro?,
anexo parte del codigo q utiliza macros de excel

***INICIO*******

SELECT tabla

LOCAL cErrores, lExcel,vlLinea,vlGrupo,oExcel,vlTipoBono
Release oExcel
* BUSCO UNA SESION DE EXCEL YA ACTIVA:
cErrores = ON("ERROR")
ON ERROR lExcel = .F.
oExcel = GetObject(,"excel.application")
ON ERROR &cErrores

IF !TYPE('oExcel')="O" && * NO ESTABA ACTIVA. PREPARO UNA NUEVA SESION DE EXCEL:
oExcel = CREATEOBJECT("Excel.Application")
ELSE
* Si existe el archivo y se esta utilizando lo cierro
FOR EACH x IN oExcel.Workbooks
NameFileTMP = x.Name
IF NameFileTMP = "Automation.XLS"
x.CLOSE
ENDIF
ENDFOR
ENDIF
oExcel.VISIBLE = .t. && VISUALIZO EXCEL
oExcel.Workbooks.ADD && PREPARO UN NUEVO TRABAJO DE EXCEL
oExcel.sheets.Add
*oExcel.sheets.Add &&Si queremos agregar más hojas
*oExcel.sheets.Add
*-

vrNumHojas = oExcel.sheets.count() &&Cantidad de hojas en el libro

IF vrNumHojas > 1
oExcel.sheets(1).select
ELSE
oWorksheet1 = oExcel.Worksheets[1]
oExcel.Worksheets.Add(,oWorksheet1,1,)
ENDIF

vrNumHojas = oExcel.sheets.count()

IF vrNumHojas = 1
oWorksheet1 = oExcel.Worksheets[2]
oExcel.Worksheets.Add(,oWorksheet1,1,)
ENDIF

vrNuPag = 1
***************
oExcel.sheets(vrNuPag).select &&Seleccionamos la hoja 1
oExcel.ActiveSheet.name = "Automation con Excel" &&Ponemos título a la hoja
***************

vrRows = 4
WITH oExcel
.Cells(vrRows,1) = [Compañía]
.Cells(vrRows,2) = [Contacto]
.Cells(vrRows,3) = [Título]
.Cells(vrRows,4) = [Dirección]

.Range([A4:D4]).Select
.Range([A4:D4]).Font.Name = [Arial]
.Range([A4:D4]).Font.Size = 8
.Range([A4:D4]).Font.Bold = .T.

.RANGE([A4:D4]).Borders(1).weight=2 && Izquierdo
.RANGE([A4:D4]).Borders(2).weight=2 && Derecho
.RANGE([A4:D4]).Borders(3).weight=2 && Arriba
.RANGE([A4:D4]).Borders(4).weight=2 && Abajo
.Range([A4:D4]).Interior.Color = RGB(220,220,220) && RGB(192,192,192) && Light Gray

SELECT tabla
GO Top
DO While !Eof()
vrRows = vrRows + 1
.Cells(vrRows,1) = ['] + Company
.Cells(vrRows,2) = ['] + Contact
.Cells(vrRows,3) = Title
.Cells(vrRows,4) = Address

Skip
ENDDO

.Cells.Select
.Cells.EntireColumn.AutoFit
.ActiveWindow.SmallScroll(-21)

.Range("A5").Select
.Range(.Selection, .Selection.End(-4161)).Select
.Range(.Selection, .Selection.End(-4121)).Select
.Selection.Borders(5).LineStyle = -4142
.Selection.Borders(6).LineStyle = -4142
With .Selection.Borders(7)
.LineStyle = 1
.Weight = -4138
.ColorIndex = -4105
EndWith
With .Selection.Borders(8)
.LineStyle = 1
.Weight = -4138
.ColorIndex = -4105
EndWith
With .Selection.Borders(9)
.LineStyle = 1
.Weight = -4138
.ColorIndex = -4105
EndWith
With .Selection.Borders(10)
.LineStyle = 1
.Weight = -4138
.ColorIndex = -4105
EndWith
With .Selection.Borders(11)
.LineStyle = 1
.Weight = 1
.ColorIndex = -4105
EndWith
With .Selection.Borders(12)
.LineStyle = 1
.Weight = 1
.ColorIndex = -4105
EndWith

.ActiveWindow.View = 2
.ActiveSheet.VPageBreaks(1).DragOff(-4161,1)
.ActiveWindow.View = 1
.ActiveWindow.SelectedSheets.PrintPreview
ENDWITH



oExcel.VISIBLE = .t. && VISUALIZO EXCEL
Release oExcel
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:formato de impresion a hoja de excel

Publicado por fporras (22 intervenciones) el 08/08/2007 17:50:01
Oscar te acabo de enviar un correo de gmail , pero tambien tengo este otro fporras@ejje.com

Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar