Cuadros de Diálogos integrados

31/05/2005 - 00:00 por JLMorales | Informe spam
Hola Grupo de Noticias:

Tengo mi libro de excel prácticamente automatizado. Ahora estoy en la fase
de impresión de reportes y quiero que cuando oprima un commandbotton se
configure y prepare la hoja activa para imprimir. Para ello he utilizado el
objeto .PageSetup con sus respectivas propiedades, margenes, orientación,
tipo de papel.

Pero quiero tambien que posteriormente a eso, se abra el cuadro de dialogo
de impresión, y lo puedo hacer de dos formas

Application.Dialogs(xlDialogPrinterSetup).Show ó
Application.Dialogs(xlDialogPrint).Show

Prefiero usar la segundo, pero deseo establecer parámetros por default
(personalizados) cuando uso solamente mi libro. Microsoft Excel tiene Listas
de argumentos de cuadros de diálogo integrados y yo necesitaría la siguente
constante:

xlDialogPrint

a la que le corresponde la siguiente lista de argumentos:

range_num, from, to, copies, draft, preview, print_what, color, feed,
quality, y_resolution, selection, printer_text, print_to_file, collate

segun la ayuda de EXCEL

La pregunta ¿cómo aplicar dichos argumentos?
Lo que quiero es definir desde mi libro que se impriman por omisión 2 copías
en la bandeja manual, que no permita la presentación preeliminar, que no
premita imprimir en un archivo por poner un ejemplo.

¿cómo lo hago?, Pues si yo uso desde mi PoyectoVB hago lo siguiente:

Application.Dialogs(xlDialogPrint).Show y despues de Show abro un "(" me
muestra una lista de arg1, arg2, arg3.")" hasta los necesarios por cada
cuadro de dialogo y lo define como "as bolean"
pero no, no consigo aplicar esto.

gracias y saludos al grupo

bytes

Preguntas similare

Leer las respuestas

#1 Héctor Miguel
31/05/2005 - 01:45 | Informe spam
hola, JLMorales !

... libro... practicamente automatizado... en la fase de impresion de reportes
... quiero que cuando oprima un commandbotton se configure y prepare la hoja activa para imprimir
... he utilizado... .PageSetup con sus respectivas propiedades, margenes, orientacion, tipo de papel.
... quiero tambien que posteriormente a eso, se abra el cuadro de dialogo de impresion, y lo puedo hacer de dos formas
Application.Dialogs(xlDialogPrinterSetup).Show
Application.Dialogs(xlDialogPrint).Show
... deseo establecer parametros por default... la... constante: xlDialogPrint... la siguiente lista de argumentos:
range_num, from, to, copies, draft, preview, print_what, color, feed, quality, y_resolution, selection, printer_text,
print_to_file, collate
... ¿como aplicar dichos argumentos?... quiero... definir...
que se impriman por omision 2 copias en la bandeja manual
que no permita la presentacion preliminar
que no permita imprimir en un archivo por poner un ejemplo [...]



1.- toma en cuenta que al mostrar un dialogo 'incorporado' de la aplicacion...
CEDES 'el control' al usuario [Y TENDRA la opcion de modificar cualquier 'personalizacion' que hubieras hecho por codigo] :-(
[y con lo cual... NO podras 'impedir' el acceso al dialogo de la presentacion preliminar... ya que]...
2.- 'desde' Application.Dialogs(xlDialogPrint) TIENE la opcion de 'entrar' al Application.Dialogs(xlDialogPrintSetup)
3.- TAMPOCO podrias 'impedir' que marque la opcion para imprimir en un archivo :-( [etc. etc. etc.]
4.- [en resumen]... si NO quieres que 'se meta' con tu personalizacion... NO LE DES LA OPORTUNIDAD [de 'hacerlo'] ;)
5.- [de cualquier forma]... te paso al final algunos de los argumentos del dialogo (xlDialogPrint) [por si decides 'seguir
adelante'] ;)

si cualquier duda [o informacion adicional]... comentas?
saludos,
hector.
== [ademas de que 'observaras' que utiliza opciones de un dialogo 'diferente' del 'normal' de los exceles actuales =range_num -> 1=todas las paginas... 2=el rango [de paginas] 'especificado'
from -> el numero de la primer pagina a imprimir [REQUERIDO si se establece el anterior en 2]
to -> el numero de la ultima pagina a imprimir [igual que el anterior]
copies -> el numero de impresiones que deseas [por omision es 1]
draft -> true/false [o verdadero/falso] corresponde al cuadro de verificacion: impresion rapida PERO NO a los graficos
[falso/omision]
preview -> true/false [o verdadero/falso] corresponde al cuadro de verificacion: vista preliminar
print_what -> 1=solo las hojas... 2=solo las notas... 3=las hojas y despues las notas
color -> true/false [o verdadero/falso] corresponde al cuadro de verificacion: imprimir en color [SOLO para Macintosh]
feed -> 1/omitido=papel continuo... 2=alimentacion manual [SOLO para Macintosh]
quality -> [numero] representa la resolucion 'de salida' de la impresora [puntos por pulgada horizontales]
y_resolution -> [numero] representa la resolucion 'de salida' de la impresora [puntos por pulgada verticales]
selection -> true/false [o verdadero/falso] ->si se usa... 'omite' range_num, from y to e imprime el rango seleccionado]<-
printer_text -> es una cadena de texto que 'nombra' a la impresora Y donde esta 'conectada' [el puerto]
print_to_file -> true/false [o verdadero/falso] corresponde al cuadro de verificacion: imprimir en archivo
collate -> true/false [o verdadero/falso] corresponde al cuadro de verificacion: intercalar
Respuesta Responder a este mensaje
#2 KL
31/05/2005 - 02:13 | Informe spam
... solo anadir que creo recordar que si no usas algun parametro, deberas
dejar un espacio igual, es decir:

Sub test()
Application.Dialogs(xlDialogPrint).Show _
, , , 2, , , , , , , , True, , False, True
End Sub

Saludos,
KL



"Héctor Miguel" wrote in message
news:
hola, JLMorales !

... libro... practicamente automatizado... en la fase de impresion de
reportes
... quiero que cuando oprima un commandbotton se configure y prepare la
hoja activa para imprimir
... he utilizado... .PageSetup con sus respectivas propiedades, margenes,
orientacion, tipo de papel.
... quiero tambien que posteriormente a eso, se abra el cuadro de dialogo
de impresion, y lo puedo hacer de dos formas
Application.Dialogs(xlDialogPrinterSetup).Show
Application.Dialogs(xlDialogPrint).Show
... deseo establecer parametros por default... la... constante:
xlDialogPrint... la siguiente lista de argumentos:
range_num, from, to, copies, draft, preview, print_what, color, feed,
quality, y_resolution, selection, printer_text, print_to_file, collate
... ¿como aplicar dichos argumentos?... quiero... definir...
que se impriman por omision 2 copias en la bandeja manual
que no permita la presentacion preliminar
que no permita imprimir en un archivo por poner un ejemplo [...]



1.- toma en cuenta que al mostrar un dialogo 'incorporado' de la
aplicacion...
CEDES 'el control' al usuario [Y TENDRA la opcion de modificar
cualquier 'personalizacion' que hubieras hecho por codigo] :-(
[y con lo cual... NO podras 'impedir' el acceso al dialogo de la
presentacion preliminar... ya que]...
2.- 'desde' Application.Dialogs(xlDialogPrint) TIENE la opcion de 'entrar'
al Application.Dialogs(xlDialogPrintSetup)
3.- TAMPOCO podrias 'impedir' que marque la opcion para imprimir en un
archivo :-( [etc. etc. etc.]
4.- [en resumen]... si NO quieres que 'se meta' con tu personalizacion...
NO LE DES LA OPORTUNIDAD [de 'hacerlo'] ;)
5.- [de cualquier forma]... te paso al final algunos de los argumentos del
dialogo (xlDialogPrint) [por si decides 'seguir adelante'] ;)

si cualquier duda [o informacion adicional]... comentas?
saludos,
hector.
== [ademas de que 'observaras' que utiliza opciones de un dialogo
'diferente' del 'normal' de los exceles actuales => range_num -> 1=todas las paginas... 2=el rango [de paginas]
'especificado'
from -> el numero de la primer pagina a imprimir [REQUERIDO si se
establece el anterior en 2]
to -> el numero de la ultima pagina a imprimir [igual que el anterior]
copies -> el numero de impresiones que deseas [por omision es 1]
draft -> true/false [o verdadero/falso] corresponde al cuadro de
verificacion: impresion rapida PERO NO a los graficos [falso/omision]
preview -> true/false [o verdadero/falso] corresponde al cuadro de
verificacion: vista preliminar
print_what -> 1=solo las hojas... 2=solo las notas... 3=las hojas y
despues las notas
color -> true/false [o verdadero/falso] corresponde al cuadro de
verificacion: imprimir en color [SOLO para Macintosh]
feed -> 1/omitido=papel continuo... 2=alimentacion manual [SOLO para
Macintosh]
quality -> [numero] representa la resolucion 'de salida' de la impresora
[puntos por pulgada horizontales]
y_resolution -> [numero] representa la resolucion 'de salida' de la
impresora [puntos por pulgada verticales]
selection -> true/false [o verdadero/falso] ->si se usa... 'omite'
range_num, from y to e imprime el rango seleccionado]<-
printer_text -> es una cadena de texto que 'nombra' a la impresora Y donde
esta 'conectada' [el puerto]
print_to_file -> true/false [o verdadero/falso] corresponde al cuadro de
verificacion: imprimir en archivo
collate -> true/false [o verdadero/falso] corresponde al cuadro de
verificacion: intercalar

email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida