none
poner texto en un formulario SIN el Control textbox RRS feed

  • Pregunta

  • Hola, necesito hacer este ejercicio  pero no funciona.

    El ejemplo funciona perfectamente en VB6, pero al hacerle el Upgrade to VB2008 (el que aqui se muestra), ya no funciona.

          

            

    Option Strict Off
    Option Explicit On
    Imports Microsoft.VisualBasic.PowerPacks.Printing.Compatibility.VB6
    Friend Class Form1
    	Inherits System.Windows.Forms.Form
    	Private Sub CmdPrint_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles CmdPrint.Click
    		Dim sngSize As Object
    		Dim strFont As Object
    		Dim Printer As New Printer
    		
    		'UPGRADE_WARNING: Couldn't resolve default property of object strFont. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
    		strFont = Printer.Font.Name 'save cur
    		'UPGRADE_WARNING: Couldn't resolve default property of object sngSize. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
    		sngSize = Printer.FontSize
    		Printer.Font = VB6.FontChangeName(Printer.Font, "courier new") 'çhang
    		Printer.FontSize = 10
    		Printer.Print(TAB(30), "PAO iNFORMATION - 1999")
    		Printer.Print() 'AQUI AVANZA UN ESPACIO EN BLANCO
    		Printer.Write(TAB(5), "Party", TAB(20), "18-35", TAB(30), "36-50")
    		'TAB(40); "51-65"; tab(50); "Over 65"; tab(60); "Total"
    		'Printer.Print
    		
    		
    	End Sub
    End Class

    Una Luz , Please!

    Gracias

    MauricioIvan


    M3

    • Cambiado Enrique M. Montejo viernes, 29 de agosto de 2014 6:16 Pregunta relacionada con Windows Forms.
    sábado, 10 de agosto de 2013 12:56

Todas las respuestas

  • Al tener configurado el Option Strict, ponlo a ON por favor, te obliga a declarar los tipos correctos de las variables.

    Cambia

    Dim sngSize As Object
    Dim strFont As Object

    por

    Dim sngSize As Single
     
    Dim strFont As String


    Si se solucionó tu consulta no olvides marcar la respuesta. Si te ayudó vótala como útil. Saludos


    sábado, 10 de agosto de 2013 13:40
  • Mil Gracias Sergio, tube que recurrir al viejo VB6 para buescar un ejemplo de Como escribir en un formulario SIN usar los textBox.

    No se si tu quisieras ensenarme una cosa mas.

    El ejercicio completo es escribir lo mismo 1. Por Pantalla y 2. Por la Impresora

    Deberia ser como el encabezado de este diseno Sacado del VB6.

    Deberia ser algo como el encabezado de este diseno

    Bueno, mil gracias, ojala me ayudaras para continuar con la tarea.

    MauricioIvan


    M3

    sábado, 10 de agosto de 2013 14:28
  • Hola Sergio

    Hice los cambios que me dijiste.

    Pase Opcion Stric Off to ON

    Pase el Dim sgnSize As Object to Single

                       strFont as Object a String

    Pero continuan las dos warning que creo son las que anulan el trabajo del boton Print

    He probado mas de 10 ejemplos, de aqui de alla, y no he podido imprimir

    Gracias

    MauricioIvan


    M3

    miércoles, 14 de agosto de 2013 17:31