PrinForm Centrado

[SKL]

Hola muchachos si algo no manejo en vb es el tema de la impresion facil. lo que necesito es hacer lo siguiente:

Imprimir varios campos label text y shapes el tema es que necesito que este CENTRADO en el centro de la hoja y no quiero hacer un super condigo con Printer.Print se que es la manera que se debe hacer pero es mas tediosa.

mi idea es poner todos los controles en un picture box e imprimirlo pero CENTRADO necesito que quede en el centro de la pagina me eh bajado unos ejemplos pero nada para lo que necesito

GRAFICO:
_________
|        x      |
|                |
|                |
|                |
|________|

LA X marca el lugar jaja

espero alguna solucion

gracias!!!

[SKL]

Problema solucionado

GRACIAS TATOOOOOOOOOOOO

http://leandroascierto.com/foro/index.php?topic=2245.0

Pero tengo un problema como modifico la cantidad de copias??? porque no puedo poner una variable en el objeto

ODIO LOS OBJETOSSSSSSSSSSSSSSSSS

  Obj_Hoja.PrintOut From:=1, _
        To:=1, _
        Copies:=VARIABLE?, _
        Preview:=False, _
        ActivePrinter:="", _
        PrintToFile:=False, _
        Collate:=True, _
        PrToFileName:="", _
        IgnorePrintAreas:=False

[LeandroA]

Hola Ivos no entiendo que no te funciona, diseña una hoja de excel a gusto y luego completa los campos que quieras, por el numero de copia funciona bien te paso nuevamente el ejemplo con 3 copias

Código: (Vb) [Seleccionar]

Option Explicit

Private Sub Form_Load()
 
    Dim Obj_Excel   As Object
    Dim Obj_Libro   As Object
    Dim Obj_Hoja    As Object
    Dim Path As String
    Dim nCopies As Long
   
   
    nCopies = 3
   
   
    Path = "C:\Users\Windows\Desktop\Libro1.xlsx"
   
    ' -- Crear nueva instancia de Excel
    Set Obj_Excel = CreateObject("Excel.Application")
    ' -- Agregar nuevo libro
    Set Obj_Libro = Obj_Excel.Workbooks.Open(Path)
   
    ' -- Referencia a la Hoja activa ( la que añade por defecto Excel )
    Set Obj_Hoja = Obj_Excel.ActiveSheet
   
    Obj_Hoja.Cells(1, 1) = "SKL"
    Obj_Hoja.Cells(1, 2) = "Se la lastra"
   
     Obj_Hoja.PrintOut _
        From:=1, _
        To:=1, _
        Copies:=nCopies, _
        Preview:=False, _
        ActivePrinter:="", _
        PrintToFile:=False, _
        Collate:=True, _
        PrToFileName:="", _
        IgnorePrintAreas:=False
   
    Obj_Libro.save
    Obj_Libro.Close
   
    Set Obj_Hoja = Nothing
    Set Obj_Libro = Nothing
    Set Obj_Excel = Nothing
       
End Sub


[SKL]

Graciela, no se porque carajo no me funcionaba, tal cual estaba haciendo con una variable...

Seguro es porque me entere que cobein es gay, quede traumado jajaja

[ssccaann43]

Jajajajajaja te matara cobein