| Pregunta: | 1579 - IMPRIMIR CAMPO MEMO |
| Autor: | Victor Adell vico |
| ¿Cómo puedo imprimir un campo MEMO de una base de datos de Access entre unos determinados márgenes?Gracias de antemano. | |
| Respuesta: | Hugo Hdez |
| Yo encontre el siguiente codigo en una pagina (No me acuerdo en cual) pero espero que te sea de utilidad como lo fue para mi. Espero que no sea demasiado tarde pero creo que la respuesta que te dieron no es la correcta. Quiero que me escribas para saber si si te funciono el codigo y en cualquier otra cosa si te puedo ayudar consultame. ********Funcion Sub Justifica_Printer(MIzquierdo, MDerecho, PosInicial, Texto) Dim X, Y, k, Ancho Dim s As String, ss As String Dim x_Spc s = Texto X = MIzquierdo Y = PosInicial Ancho = (MDerecho - MIzquierdo) While s <> "" ss = "" While (s <> "") And (Printer.TextWidth(ss) <= Ancho) ss = ss & Left$(s, 1) s = Right$(s, Len(s) - 1) Wend If (Printer.TextWidth(ss) > Ancho) Then s = Right$(ss, 1) & s ss = Left$(ss, Len(ss) - 1) End If ´Aqui tenemos en ss lo maximo que cabe en una linea If Right$(ss, 1) = " " Then ss = Left$(ss, Len(ss) - 1) Else If (InStr(ss, " ") > 0) And (Left$(s & " ", 1) <> " ") Then While Right$(ss, 1) <> " " s = Right$(ss, 1) & s ss = Left$(ss, Len(ss) - 1) Wend ss = Left$(ss, Len(ss) - 1) End If End If x_Spc = 0 X = MIzquierdo If (Len(ss) > 1) And (s & "" <> "") Then x_Spc = (Ancho - Printer.TextWidth(ss)) / (Len(ss) - 1) End If Printer.Cu | |
| Respuesta: | Mariano |
| Con Crystal Report lo haces perfecto. Indica al Crystal que base es, el cambo memo, y hasta los margenes...investiga. Puede ser una posibilidad... | |