Visual Basic.NET - IMpresion VB NET

   
Vista:

IMpresion VB NET

Publicado por Pablo (1 intervención) el 09/01/2008 14:36:12
Necesito imprimir listados en general y algunos con alguna logica mas compleja y no se por donde emprezar ya que me lie un poco con Prindocument, etc. No utilizo Crytal. En VB 6 hacia algo paracido a esto(abajo va el codigo):
No se que me conviene hacer
Desde ya muchas gracias

Private Function impresion()
Printer.ScaleMode = vbTwips
Printer.FontName = "Courier New"
Printer.FontSize = 10
With Data.Recordset
If Not (.EOF Or .BOF) Then
.MoveFirst
f = 0
Do Until .EOF
If f = 0 Then
Call tit_imp
End If
If f > 68 Then
Printer.NewPage
Call tit_imp
End If
Call det_imp
f = f + 1
.MoveNext
Loop
Printer.EndDoc
End If
End With
End Function


Private Function tit_imp()
Dim cartel As String
Printer.Print
Printer.Print Space(8);
Printer.FontSize = 8
Printer.Print nom_emp
Printer.CurrentX = 7000
Printer.Print "Fecha:";
Printer.Print Date
Printer.FontSize = 10
Printer.Print
cartel = "Listado de Clientes"
Printer.CurrentX = (Printer.ScaleWidth - Printer.TextWidth(cartel)) 2
Printer.Print cartel
Printer.Print
Printer.Print Space(8);
Printer.Print String(60, "-")
Printer.Print Space(19);
Printer.FontBold = True
Printer.Print "Codigo Denominación "
Printer.FontBold = False
Printer.Print Space(8);
Printer.Print String(60, "-")
f = 7
End Function

Private Function det_imp()
With Data.Recordset
Printer.Print Space(18);
Printer.Print Padl(Format(!cli_codigo, "###0"), 4);
Printer.Print Space(18);
Printer.Print Padr(IIf(!cli_nom & "" = "", Space(10), !cli_nom), 30)
End With
End Function
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