• Domingo 22 de Diciembre de 2024, 13:17

Autor Tema:  Impresiones En Visual  (Leído 989 veces)

SnOwMaN

  • Nuevo Miembro
  • *
  • Mensajes: 3
    • Ver Perfil
Impresiones En Visual
« en: Martes 22 de Junio de 2004, 08:55 »
0
:alien: buenas colegas no se si recuerden que tenia ke hacer un pryecto en visual basic ????
pues la buena es ke ya mero lo termino gracaias a un buen colega de aki ke me hizo el favor de prestarme un proyecto suyo. en fin..

ahora lo ke necesito es saber somo puedo mandar a imrpimir por impresora los datos de textboxs tengo un codigo erpo al parecer no funciona  :blink:  se los muestro:

Private Sub mnuFicImpImp_Click()
' Imprimir el contenido del TextBox en la impresora          
    On Error Resume Next

    ' Averiguamos cuantas copias quiere el usuario y dejamos que elija otras cosas,
    ' el propio cuadro de diálogo nos lo permitirá hacer...
    With CommonDialog1
        .CancelError = True
        .DialogTitle = "Imprimir"
        ' cdlPDHidePrintToFile  No mostrar el botón de imprimir en un archivo
        ' cdlPDNoPageNums       No mostrar desde que página imprimir, etc.
        ' CdlPDUseDevModeCopies Dejar al SO que se encargue de imprimir las copias
        '                       En caso de que la impresora no lo soporte, estará
        '                       deshabilitada la opción del número de copias.
        .Flags = cdlPDHidePrintToFile Or cdlPDNoPageNums Or cdlPDUseDevModeCopies
        .ShowPrinter
        ' Si no se ha cancelado
        If Err = 0 Then
           
            Printer.Print ""
            Printer.Print txtnombre.Text
            Printer.Print txtdireccion.Text
            Printer.Print txtciudad.Text
            Printer.Print txtrfc.Text
            Printer.Print txtnumfactura.Text
            Printer.Print txtfecha.Text
            Printer.Print txtcantidad.Text
            Printer.Print txtdescripcion.Text
            Printer.Print txtpunitario.Text
            Printer.Print txtimportte.Text
            Printer.Print txtsubtotal.Text
            Printer.Print txtiva.Text
            Printer.Print txttotal.Text
            Printer.Print txtcp.Text
            Printer.EndDoc
        End If
    End With
   End Sub

bueno es este no se ke proble tenga porke lo mando a impriir y me aparece el mensage de ke esta imprimiendo pero la impresora no jala ni una sola hoja y no kreo ke tenga un problema (la impresora) por ke es nueva
segun unos textos ke lei necesito agregarle un CommonDialog pero  :blink:  ni idea si lo lei y mas omenos lo entendi pero no he logrado entender su funcion

en fin...........

ahhhhhhhh!!!!!!!!!!!!!!!

tambien neesio ke la informacion ke esta por ejemplo en el form de clientes se imprima en pantalla para eso si estoy hecho un embrollo
segun esto se debe de imprimir la informacion de mi cliente en pantalla perpo la verdad soy una papa  :P

bueno espero ke me puedan ayudar y si necesitan chekar el programa escribanme a [email:1dprvn3x]qizzmyazz@hotmail.com[/email:1dprvn3x] o agreguenme a su lista y se los enviare kon mucho gusto

se los agradeceria ke me pudieran responder lo mas prontoposible porke debo de entregar mi proyecto el jueves o sea el 24/jun/2004 (Mexico)
bueno muchas gracias de antemano


ºSi la noche es larga para ke desperdiciarla durmiendoº :comp: