Problemas al IMprimir en XP

Hola amigo, parte de lo que haz hecho esta bien.

1. Si ya agregastes el nuevo papel que por ejemplo le llamas "FORMAFACTURA"
y le haz dado el tamaño Ej. 8.5x8.5" (si esto lo creates bien)

2. Tienes que predeterminar esa impresora y el NUEVO tamaño del papel
"FORMAFACTURA"

4. si estas usando crystal report no tienes que establecer el nombre del
impresor al programa, pero si estas usando impresion directa puedes ver esta
rutina.

Private Sub cmdPrint_Click (ByVal sender As System.Object, ByVal e As
System.EventArgs)

Handles cmdPrint.Click

' Crea el documento y le asocia el manejador del evento PrintPage

Dim MyDoc As New PrintDocument()

AddHandler MyDoc.PrintPage, AddressOf MyDoc_PrintPage


'Permite que el usuario seleccione impresora y parámetros de impresión.

Dim dlgSettings As New PrintDialog()

dlgSettings.Document = MyDoc

Dim Result as DialogResult = dlgSettings.ShowDialog()


' Si el usuario está conforme se lanza la impresión.

If Result = DialogResult.OK Then

' El método termina inmediatamente y la impresión es asíncrona

MyDoc.Print()

End If

End Sub

Private Sub MyDoc_PrintPage(ByVal sender As Object, ByVal e As
PrintPageEventArgs)

' Define la fuente

Dim MyFont As New Font("Arial", 30)

' Determina la posicion.

' Lectura de márgenes

Dim x As Single = e.MarginBounds.Left

Dim y As Single = e.MarginBounds.Top

' Determina altura de línea basada en las medidas de la fuente.

Dim LineHeight As Single = MyFont.GetHeight(e.Graphics)

' Imprime 3 líneas de texto

Dim i As Integer

For i = 0 To 2

' Dibuja el texto en negro

' usando la fuente y las coordenadas

e.Graphics.DrawString("Texto de la línea nº" + i.ToString(), MyFont,
Brushes.Black, x, y)

' Se mueve una línea

y += LineHeight

Next

y += LineHeight

' Dibuja la imagen

'Graphics.DrawImage(Image.FromFile(Application.StartupPath + ".bmp"), x, y)

End Sub


"VKTOP" escribió en el mensaje
news:

Hola amigos, tengo un problema para imprimir desde una impresora maricial
es una
FX-870, bien tengo una aplicacion vb.net dede la cual quiero imprimir una
factura
que tiene un tamaño personalizado y el aplicativo se ejecutara en un
windows xp
en el cual lei que no acepta tamaños personalizados de papel, bueno
leyendo por alli
encontre que tengo que crear un form darle el tamaño correcto y todo ok
al momento
de setear la ipresora decirle que el tamaño delñ papel es el form
personalizado que cree
pero al momento de setear la impresora, no sale el form que he creado,
solo salesn los clasico A4
, A5 etc pero el form que cree no sale en la lista de tamaño de papel.
Que puede estar pasando?
Como solucionaron este tema de imprimir una factura con tamaño
personalizado si ejecutan en un
windows XP?

gracias

saluidos

Victor

Hola Megaman gracias por tu respuesta, pero mi problema esta justo en el
paso 2 que mencionas, como predetermino el NUEVO tamaño del papel
"FORMAFACTURA", es justo lo que no puedo o se hacer.
saludos
Victor

"Megaman" escribió en el mensaje
news:

Hola amigo, parte de lo que haz hecho esta bien.

1. Si ya agregastes el nuevo papel que por ejemplo le llamas
"FORMAFACTURA" y le haz dado el tamaño Ej. 8.5x8.5" (si esto lo creates
bien)

2. Tienes que predeterminar esa impresora y el NUEVO tamaño del papel
"FORMAFACTURA"

4. si estas usando crystal report no tienes que establecer el nombre del
impresor al programa, pero si estas usando impresion directa puedes ver
esta rutina.

Private Sub cmdPrint_Click (ByVal sender As System.Object, ByVal e As
System.EventArgs)

Handles cmdPrint.Click

' Crea el documento y le asocia el manejador del evento PrintPage

Dim MyDoc As New PrintDocument()

AddHandler MyDoc.PrintPage, AddressOf MyDoc_PrintPage


'Permite que el usuario seleccione impresora y parámetros de impresión.

Dim dlgSettings As New PrintDialog()

dlgSettings.Document = MyDoc

Dim Result as DialogResult = dlgSettings.ShowDialog()


' Si el usuario está conforme se lanza la impresión.

If Result = DialogResult.OK Then

' El método termina inmediatamente y la impresión es asíncrona

MyDoc.Print()

End If

End Sub

Private Sub MyDoc_PrintPage(ByVal sender As Object, ByVal e As
PrintPageEventArgs)

' Define la fuente

Dim MyFont As New Font("Arial", 30)

' Determina la posicion.

' Lectura de márgenes

Dim x As Single = e.MarginBounds.Left

Dim y As Single = e.MarginBounds.Top

' Determina altura de línea basada en las medidas de la fuente.

Dim LineHeight As Single = MyFont.GetHeight(e.Graphics)

' Imprime 3 líneas de texto

Dim i As Integer

For i = 0 To 2

' Dibuja el texto en negro

' usando la fuente y las coordenadas

e.Graphics.DrawString("Texto de la línea nº" + i.ToString(), MyFont,
Brushes.Black, x, y)

' Se mueve una línea

y += LineHeight

Next

y += LineHeight

' Dibuja la imagen

'Graphics.DrawImage(Image.FromFile(Application.StartupPath + ".bmp"), x,
y)

End Sub


"VKTOP" escribió en el mensaje
news:

Hola amigos, tengo un problema para imprimir desde una impresora maricial
es una
FX-870, bien tengo una aplicacion vb.net dede la cual quiero imprimir una
factura
que tiene un tamaño personalizado y el aplicativo se ejecutara en un
windows xp
en el cual lei que no acepta tamaños personalizados de papel, bueno
leyendo por alli
encontre que tengo que crear un form darle el tamaño correcto y todo ok
al momento
de setear la ipresora decirle que el tamaño delñ papel es el form
personalizado que cree
pero al momento de setear la impresora, no sale el form que he creado,
solo salesn los clasico A4
, A5 etc pero el form que cree no sale en la lista de tamaño de papel.
Que puede estar pasando?
Como solucionaron este tema de imprimir una factura con tamaño
personalizado si ejecutan en un
windows XP?

gracias

saluidos

Victor