[SOLUCIONADO] sobre imprimir con el simbolo "visto"

[omarinho23]

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.

[YAcosta]

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()

Código: (vb) [Seleccionar]

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


[raul338]

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

[erbuson]

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.

Código: ("Visual Basic") [Seleccionar]

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

[omarinho23]

* 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

Código: [Seleccionar]

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.

[erbuson]

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

Código: (vb) [Seleccionar]

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

[omarinho23]

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.

[erbuson]

De nada hombre, un saludo.