Programación General > Visual Basic para principiantes

 Como Imprimir Un Rango En Un Spreadsheet

(1/1)

FREELANCE:
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:
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("Excel.Application")' 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 > 0 Then   MsgBox (Err.Description)   Err.ClearEnd IfEnd Function  
Ejemplo


--- Código: Text ---Private Sub Command1_Click()   ImprimirRango ("A1:G54")End Sub  
Saludos Espero te sirva


y no esta de mas recordar el no repetir preguntas :)

Navegación

[0] Índice de Mensajes