none
AYUDA!!! Obtener numero de formulario para Papersize VB6 RRS feed

  • Pregunta

  • Llevo dias en esto y realmente necesito una mano, gracias

    Estoy utilizando el  objeto Printer de  Visual Basic  6.0
    para imprimir un formulario que abarca media pagina
    El formulario se llama recibo y lo cree en las propiedades del servidor de las impresoras.
    Utilizo Printer.Papersize para asignar el numero de formulario.

    Pero cada vez que creo el formulario este cambia de numero.
    Como recorro los formularios existentes en el windows, y localizo el que se llama recibo
    y obtengo el numero asignado para usarlo en Printer.Papersize

     

    Printer.Orientation = vbPRORPortrait

    Printer.PaperSize = 178  '  Numero de formulario RECIBO
    Printer.print "test de tamaño"
    Printer.Enddoc


    Jr
    sábado, 24 de septiembre de 2011 23:00

Respuestas

  • Hola jaitami, puedes recorrer loos formularios buscandoi el que tenfa ese nombre:

     

    private function NumeroDelFormulario as integer

    Dim Form As Form

    For Each Form In Forms
       If Form.Name = "recibo" Then
           NumeroDelFormulario = Form.hwnd
           Exit Function
       End If
    Next

    End Function

     

    Saludos,

     

    Javier J

    • Marcado como respuesta jaltami miércoles, 14 de marzo de 2012 15:20
    martes, 11 de octubre de 2011 7:12