Autor Tema: Como Imprimir Un Rango En Un Spreadsheet (Leído 1517 veces)

FREELANCE · « **en:** Sábado 5 de Mayo de 2007, 21:53 »

tengo en un formulario un control Spreadsheet con una rango ("A1:G54"), cual es el o las lineas que debo colocar a un boton de comando para que me imprima ese rango?
Frm_formulario.Spreadsheet1.Range("A1:G54").Select, con esta sentencia selecciono lo que quiero imprimir, pero despues que hago?. ayudenme por favor y de antemano muchas gracias por la respuesta

F_Tanori · « **Respuesta #1 en:** Sábado 5 de Mayo de 2007, 23:44 »

Hola

al parecer no hay un metodo de impresion, he probado de esta manera y se ha podido imprimir (a través de Excel)

Código: Text

Function ImprimirRango(Rango As String)
On Error GoTo xError
 Dim oExcel As Object
 
 Set oExcel = CreateObject(&#34;Excel.Application&#34;)
' oExcel.Visible = True 'Mostrar aplicacion
 
   With oExcel
        .WorkBooks.Add
        
            With Spreadsheet1
                .Range(Rango).Select
                .Selection.Copy
            End With
        
        .Range(Rango).Select
        .ActiveSheet.Paste
        .Range(Rango).Select
        .Selection.PrintOut Copies:=1, Collate:=True
        .WorkBooks(1).Close (False)
    End With
   
   oExcel.Quit 'Cerrar Aplicacion
   Set oExcel = Nothing 'Destruir Objeto
 
xError:
If Err.Number &#62; 0 Then
   MsgBox (Err.Description)
   Err.Clear
End If
End Function
 
 

Ejemplo

Código: Text

Private Sub Command1_Click()
   ImprimirRango (&#34;A1:G54&#34;)
End Sub
 
 

Saludos Espero te sirva

y no esta de mas recordar el no repetir preguntas

SoloCodigo

Autor Tema: Como Imprimir Un Rango En Un Spreadsheet (Leído 1517 veces)

FREELANCE

Como Imprimir Un Rango En Un Spreadsheet

F_Tanori

Re: Como Imprimir Un Rango En Un Spreadsheet