Visual Basic Foro
Programación => Visual Basic 6 => Mensaje iniciado por: omarinho23 en Julio 03, 2010, 03:02:07 pm
-
buenas con todos quisiera saber como ponerle un visto a una impresion ya q no se como acerlo quisiera q alguien me ayude
Private Sub Check158_Click()
If Check158.Value = 1 Then Text1(2).Text = ("X")
If Check158.Value = 1 Then Check157.Value = 0
If Check158.Value = 0 Then Text1(2).Text = (" ")
End Sub
en ves de la " X " que salga un "visto" o mejor dicho simbolo de check... alguien sabe como hacerlo muchas gracias.
-
A que te refieres? a que en el papel salga impreso algo como un checkbox?, por cierto te alcanzo otra forma de escribir tu código que me parece mas mantenible
Private Sub Check158_Click()
Select Case Check158.Value
Case 0
Text1(2).Text = (" ")
Case 1
Text1(2).Text = ("X")
Check157.Value = 0
Case 2
'Por si necesitas evaluar el estado Grayed
End Select
End Sub
-
Creo que a lo que se refiere, es que en lugar de que salga la "X" salga como .... un "tick" (tilde, dibujo ese de la raiz cuadrada, el icono de un check marcado) o no?
Deberias buscar en los simbolos ASCII o en su defecto en los UTF-8 :P
-
Hola, para simular el Check en un MsFlexGrid, utilizo esta función y el efecto logrado es bastante aceptable, puedes adaptarlo a lo que necesitas.
Public Sub VisorCheckBox(Visor As MSFlexGrid, Fila As Single, Columna As Single, OnOff As Boolean, Optional ByteOff As String = "")
' (**) Simula la marca de un CheckBox en un Grid con la letra Wingdings o Wingdings 2
' Si utilizo Wingdings2 tengo (254) marcado y (111) o (nulo) desmarcado (o el caracter indicado)
' Si utilizo Wingdings tengo (P)o(R) marcado y (nulo) desmarcado
Visor.ColAlignment(Columna) = flexAlignCenterCenter
Visor.Col = Columna
Visor.Row = Fila
Visor.CellFontName = "Wingdings 2"
Visor.CellFontSize = 12
If OnOff Then
Visor.TextMatrix(Fila, Columna) = "P"
Else
Visor.TextMatrix(Fila, Columna) = ByteOff
End If
End Sub
Saludos
-
* gracias yvan por el dato , si trato q salga como un checkbox en mi impresion
* claro raul q salga como un "visto" como una raiz cuadrada
YA PERO SI FUERA CON CODIGO ASCII COMO LO PONDRIA
Select Case Check158.Value
Case 0
Text1(2).Text = (" ")
Case 1
Text1(2).Text = ("X") <<<<< en este caso como lo pondria en vez de la "X" seria (alt+251 o alt+436)
Check157.Value = 0
Case 2
'Por si necesitas evaluar el estado Grayed
End Select
End Sub
* erbuson no entiendo como agregaria en este caso la funcion q me haz pasado
Gracias por el tiempo tomado chicos.
-
Hola, la funcion no es mas que un ejemplo de como lo utilizo yo, para que te hagas una idea, como estas hablando de que como lo puedes imprimir, pues se me ocurre que podrías:
Solamente quieres imprimir el VISTO ya que imagino que el NO VISTO no tiene ningun sentido, así pues podrías
If Check158.Value = 1 then
Printer.FontName = "Wingdings 2"
Printer.FontSize = 12
Printer.Print "P" ' Con esto consigues el Visto
' Por descontado que aqui deberías restaurar la fuente original de la Impresora
End If
O tal vez es que no entendí tu pregunta.
Un saludo
-
Si te entendi erbuson muchas gracias! mas bien solo reemplaze la "X" por una "P" y en el datareport cambien el font a 'wingdings 2' y listo salio el check muchas gracias! (Y) erbuson y a todos los q me ayudaron y tomaron su tiempo en darme las ideas gracias.
-
De nada hombre, un saludo.