Visual Basic - ¿Que sentencia usar?

Life is soft - evento anual de software empresarial
 
Vista:

¿Que sentencia usar?

Publicado por Germany (53 intervenciones) el 06/10/2006 16:59:02
Saludos!

estoy imprimiendo una factura y para ello uso el siguiente código!

-----
Private Sub LaVolpeButton9_Click()

Printer.ScaleMode = vbCharacters
Printer.TrackDefault = True

For i = 1 To 8
Printer.Print ""
Next

Printer.Print ""
Printer.FontName = "Arial"
Printer.FontSize = 10
Printer.FontBold = False
Printer.FontUnderline = False

Printer.Print Tab(96); Label1.Caption; Tab(112); Text1.Text
Printer.Print Tab(23); Label2.Caption; Tab(46); Label3.Caption

Printer.Print Tab(23); Label4.Caption; Tab(44); Label46.Caption
Printer.Print Tab(23); Label5.Caption; Tab(96); Label8.Caption
Printer.Print Tab(23); Label6.Caption; Tab(96); Label9.Caption
Printer.Print Tab(23); Label7.Caption; Tab(96); Label10.Caption; Tab(105); Label11.Caption

Printer.Print ""

Printer.Print Tab(23); Label12.Caption
Printer.Print Tab(23); Label13.Caption
Printer.Print Tab(23); Label14.Caption
Printer.Print Tab(23); Label15.Caption
Printer.Print Tab(23); Label16.Caption
Printer.Print Tab(23); Label31.Caption
'''''''''''''''''''''''''

Printer.Print ""

Printer.Print Tab(30); Label17.Caption; Tab(40); Label18.Caption

'''''''''''''''''''
Printer.Print Tab(30); Combo1.Text; Tab(40); Label49.Caption; Tab(65); Label28.Caption; Tab(83); Text2.Text; Tab(110); Label19.Caption; Tab(115); Text12.Text

Printer.Print Tab(30); Combo2.Text; Tab(40); Text3.Text; Tab(110); Label20.Caption; Tab(115); Text13.Text

Printer.Print Tab(30); Combo3.Text; Tab(40); Text4.Text; Tab(110); Label21.Caption; Tab(115); Text14.Text

Printer.Print Tab(30); Combo4.Text; Tab(40); Text5.Text; Tab(110); Label22.Caption; Tab(115); Text15.Text

Printer.Print Tab(30); Combo5.Text; Tab(40); Text6.Text; Tab(110); Label23.Caption; Tab(115); Text16.Text

Printer.Print Tab(30); Combo6.Text; Tab(40); Text7.Text; Tab(110); Label24.Caption; Tab(115); Text17.Text

Printer.Print Tab(30); Combo7.Text; Tab(40); Text8.Text; Tab(110); Label25.Caption; Tab(115); Text18.Text

Printer.Print Tab(30); Combo8.Text; Tab(40); Text9.Text; Tab(110); Label26.Caption; Tab(115); Text19.Text

Printer.Print Tab(30); Combo9.Text; Tab(40); Text10.Text; Tab(110); Label27.Caption; Tab(115); Text20.Text

'''''''''''''''''''
Printer.Print ""
If Label41.Visible = True Then
Printer.Print Tab(31); Label41.Caption; Tab(36); Label47.Caption; Tab(43); Label43.Caption; Tab(55); Label14.Caption; Tab(69); Label45.Caption; Tab(110); Label21.Caption; Tab(115); Text14.Text

Printer.Print ""
Printer.Print Tab(40); Label30.Caption; Tab(115); Text11.Text

Else
If Label41.Visible = False Then

Printer.Print ""
Printer.Print Tab(40); Label30.Caption; Tab(115); Text11.Text

Printer.Print ""

Printer.Print Tab(23); Label29.Caption
Printer.Print Tab(23); Label34.Caption; Tab(37); Label32.Caption; Tab(53); Label36.Caption; Tab(65); Label40.Caption
Printer.Print Tab(23); Label35.Caption; Tab(33); Label33.Caption; Tab(54); Label37.Caption; Tab(63); Label48.Caption; Tab(80); Label38.Caption; Tab(95); Label50.Caption

Printer.Print ""
Printer.Print ""
Printer.Print ""
Printer.Print Tab(23); Label39.Caption
Printer.Print Tab(23); Label51.Caption
Printer.Print Tab(23); Label53.Caption

Printer.EndDoc

End If
End If
End If
End If
End Sub
-----

Ahora mi problema esta que en los diferentes text (desde text3 hasta text10) el usuario puede ingresar diferentes conceptos para la factura pero si no lo ingresa solo imprimima a partir de
If Label41.Visible = True Then para que no me deje esos espacios en blanco si el usuario no ingresa nada ! o si ingresa solo hasta el text4 u otro text por favor ayuda !!! gracias de antemano
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:¿Que sentencia usar?

Publicado por MariA (38 intervenciones) el 06/10/2006 21:07:04
Es la misma pregunta que acabo de responder algo mas arriba.
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