Mensaje enviado por José Rubí de la Vega <jrubi@ctv.es>

Prueba con esto (lo escribo de memoria):

Dim Impresora as Printer

CommonDialog1.Flags=cdlPDReturnDC+cdlPDNoPageNums
CommonDialog1.ShowPrinter
For each Impresora in Printers
     If Impresora.hDc = CommonDialog1.hDC then
        Set Printer = Impresora
        Exit For
     End If
Next
Printer.Print "";
RichTextBox1.SelStart=0
RichTextBox1.SelLength=Len(RichTextBox1.Text)
RichTextBox1.SelPrint CommonDialog1.hDC
Printer.EndDoc



At 23:02 29/10/99 +0200, Manuel wrote:
> Tengo hecho un programa que maneja un RichTextBox para
> introducción/variación de texto por el usuario y que funciona
> correctamente al ejecutarlo. Para poder imprimir su contenido utilizo
> el commonDialog.ShowPrinter, selecciono el texto y ¡me funciona
> perfectamente en mi impresora y en alguna otra!, pero no sale nada, no
> imprime en absoluto en algunas otras.


Un saludo.

_________________________________________________
José Rubí de la Vega
E-mail : jrubi@ctv.es
WWW : http://www.ctv.es/USERS/jrubi
Podrás encontrar información sobre VB, las listas
vb-esp y visualbasic-esp y un resumen de los
mensajes de las mismas