Visual Basic - printer urgente

Life is soft - evento anual de software empresarial
 
Vista:

printer urgente

Publicado por FT (16 intervenciones) el 05/01/2001 00:00:00
me gustaria tener informacion lo mas DETALLADA posible sobre el metodo printer o en su defecto sobre otra manera de imprimir en visual basic, podeis mandarmelo a mi direccion de correo o bien publicarlo aqui gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:printer urgente

Publicado por Goku (77 intervenciones) el 05/01/2001 00:00:00
Aca te va un ejemplo
Private Sub Cmd_Imp_List_Cli_Click(Index As Integer)
If Index = 0 Then ´Imprimir listado
Pagina = 1
Dialogo_Cli.CancelError = True
On Error GoTo Fallo
Dialogo_Cli.ShowPrinter
Call Imp_Datos_Cli
Set Tbcli = DBD.OpenRecordset("Cli", dbOpenTable)
Tbcli.Index = "Indcli"
Dim renglony
renglony = 40
´ X = ---------------------------
Do While Not Tbcli.EOF
Printer.CurrentX = 10
Printer.CurrentY = renglony
Printer.Print Tbcli!Nomcli
Printer.CurrentY = renglony
Printer.CurrentX = 80
Printer.Print Tbcli!Dircli
Printer.CurrentY = renglony
Printer.CurrentX = 165
Printer.Print Tbcli!Telcli
renglony = renglony + 5
Tbcli.MoveNext
If Printer.CurrentY >= Printer.ScaleHeight - 15 Then
Printer.NewPage
Call Imp_Datos_Cli
Printer.CurrentX = 10
renglony = 40
End If
Loop
Printer.EndDoc
Unload Me
End If

If Index = 1 Then ´Salir
Unload Me
End If
Fallo:
Exit Sub

End Sub

Public Sub Imp_Datos_Cli()
Pagina = Pagina + 1
Printer.CurrentY = 10
Printer.CurrentX = 10
Printer.FontName = "Arial"
Printer.FontBold = True ´Negrita
Printer.FontSize = 10
Printer.ScaleMode = 6
Printer.Print "Titulo de la aplicación lo lo que se te antoje página "; Printer.Page
Printer.CurrentX = 10
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar