Cuadros de Diálogos integrados

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

... 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