Imprimir

yuyita
27 de Octubre del 2004
Hola amigos:

Tengo una super duda lo que pasa es que quiero imprimir desde visual la información que jalo de una base de datos, esta infomación la quiero imprimir en una hoja tamaño carta peo no tengo ni idea de cómo hacerlo. He escuchado hablar de print y del cristal report pero no tengo ni idea de que es ni de cómo se usa.

Estoy trabajando con visual basic 6.0 y mysql

De antemano muchísimas gracias por su ayuda.

nagash
27 de Octubre del 2004
puedes probar con el objet printer
y un commondialog

mira esto esta en msdn

Private Sub Form_Click ()
Dim HWidth HHeight I Msg ' Declara variables.
On Error GoTo ErrorHandler ' Configura controlador de errores
Msg = "Esto se imprime en la página"
For I = 1 To 2 ' Establece dos iteraciones.
HWidth = Printer.TextWidth(Msg) / 2 ' Obtiene la mitad del ancho.
HHeight = Printer.TextHeight(Msg) /2 ' Obtiene la mitad del alto.
Printer.CurrentX = Printer.ScaleWidth / 2 - HWidth
Printer.CurrentY = Printer.ScaleHeight / 2 - HHeight
Printer.Print Msg & Printer.Page & "." ' Imprimir.
Printer.NewPage ' Envía una página nueva.
Next I
Printer.EndDoc ' La impresión ha terminado.
Msg = "Se han enviado a la impresora dos páginas, cada una de ellas "
Msg = Msg & "con una única línea centrada de texto."
MsgBox Msg ' Muestra el mensaje.
Exit Sub
ErrorHandler:
MsgBox "Hubo un problema al imprimir en su impresora."
Exit Sub
End Sub

ahora deebes personalizar el commondialog y activar la casilla cancel error y capturar dicho error con un on error

de la siguiente forma

on error goto errores:

errores:
errores:
If Err.Number > 0 Then
If Err.Number = 32755 Then
Exit Sub
End If
MsgBox Err.Description, vbCritical, App.Title
Resume Next
End If

espero que te sirva