Re: Error en Impresion

Gracias por su tiempo ya me ayudaron, estaba mal los parametros :D 

Saludos.

2013/3/14 Alberto Cuevas <betocuevas.net@gmail.com>

Hola a todos tengo la siguiente ventana para imprimir, funciona correctamente en maquinas con Windows XP, pero presenta un error en Windows 7.

Este es el codigo que tengo en el botón imprimir:

f_print(dw_reporte)

Esta es la funciona que invoca a esta ventana:

global type f_print from function_object

end type

forward prototypes

global function integer f_print (datawindow adw_object)

end prototypes

global function integer f_print (datawindow adw_object);

str_param    lstr_param

Integer        li_retorno= 0

// Asumo impresión cancelada

li_retorno = 0

lstr_param.dw_object = adw_object

OpenWithParm(w_imprimir, lstr_param)

li_retorno = Message.DoubleParm

IF IsNull (li_retorno) THEN

li_retorno = 0  // Se canceló impresion

END IF

RETURN li_retorno

end function

Este es el error:

Este es el codigo del evento Open de la ventana w_imprimir:

str_param  ls_str_param

Integer      li_copias, li_intervalo

String        ls_rango

ls_str_param = Message.PowerObjectParm

SetPointer(HourGlass!)

This.idw_DataWindow = ls_str_param.dw_print

ddplb_impresora.AddItem(This.idw_DataWindow.Describe("DataWindow.Printer"), 1)              //Linea 11

ddplb_impresora.SelectItem(1)

li_copias = Integer(This.idw_DataWindow.Describe("DataWindow.Print.Copies"))

IF li_copias < 1 THEN

This.em_copias.Text = "1"

ELSE

This.em_copias.Text = String(li_copias)

END IF

ls_rango = This.idw_DataWindow.Describe("DataWindow.Print.Page.Range")

IF ls_rango = "" THEN

   This.rb_todo.Checked      = TRUE

   This.rb_paginas.Checked = FALSE

   This.sle_paginas.Text      = ""

ELSE

   This.rb_todo.Checked      = FALSE

   This.rb_paginas.Checked = TRUE

   This.sle_paginas.Text      = ls_rango

END IF

li_intervalo = Integer(This.idw_DataWindow.Describe("DataWindow.Print.Page.RangeInclude"))

IF li_intervalo = 2 THEN

   This.ddlb_print.Text = "Páginas Impares"

ELSEIF li_intervalo = 1 THEN

   This.ddlb_print.Text = "Páginas Pares"

ELSE

   This.ddlb_print.Text = "El intervalo"

END IF

IF This.idw_DataWindow.Describe("DataWindow.Print.Collate") = "Yes" THEN

   This.cbx_intercalar.Checked = TRUE

ELSE

   This.cbx_intercalar.Checked = FALSE

END IF

Espero me puedan ayudar a dar con la solución,  gracias.

--
 
---
Has recibido este mensaje porque estás suscrito al grupo "TechEra" de Grupos de Google.
Para anular la suscripción a este grupo y dejar de recibir sus correos electrónicos, envía un correo electrónico a techeraz9+unsubscribe@googlegroups.com.
Para obtener más opciones, visita https://groups.google.com/groups/opt_out.