hola colegas,
Después de pasar un largo rato peleándome con gambas3 pude imprimir texto.
paso:
1- agregar un objeto printer desde la caja de herramientas
2- dar doble clic en ese objeto printer, y en el evento Draw
pegar el siguiente código:
Dim PRINT_MARGIN As Float = Paint.Width / Printer1.PaperWidth * 10
Paint.Font = Font["Courier"]
Paint.DrawRichText(docV, PRINT_MARGIN, PRINT_MARGIN - (Printer1.Page - 1) * (Paint.Height - PRINT_MARGIN * 2), Paint.Width - PRINT_MARGIN * 2, Paint.Height * Printer1.Count, Align.TopNormal)
Note que a mi objeto printer le he llamado "Printer1", y la variable "docV" es una STRING donde escribi algo
3- en un botón poner el siguiente código para imprimir
Me.Enabled = False
Inc Application.Busy
Printer1.Print
Dec Application.Busy
Me.Enabled = True
****si alguien sabe como hacer un salto de linea en gambas 3 por favor comunicarlo
pd: la verdad que en gambas 3.3.4 todavía hay muchos errores. si escribes lo siguiente explota el editor
|@·~~½¬½¬¬{{{[[]]]}}\\ . una vez escrito esos símbolos y comienzas a borrarlos explotara gambas3
y también cuando quiero utilizar el scroll horizontal hace cosas extrañas...
espero les sirva.