Problemas con el Printer.copies

[dconsolidado]

Tengo un problema con el Printer.copies, me dice que la propiedad no es valida, estoy tratando de pasarle como Printer.copies = 2, Printer.copies = "2", Printer.copies = "algun valor" pero nada...!! podrian ayudarme..

Me dice que el valor de la propiedad no es valido.


Gracias por la atencion.

[erbuson]

Hola, acabo de hacer la prueba en mi impresora y me permite ponerlo, por ejemplo

Printer.Copies = 3

Aunque si no estoy equivocado, esto no hace que la impresora imprima tres copias, sino que debes por proceso controlar cuantas copias ha seleccionado el usuario e imprimirlas.

Bueno, tal vez alguien pueda echar mas luz sobre el asunto.

Saludos

[dconsolidado]

Hola,

Gracias por contestar.

Te cuento dandole vueltas, le pase un parametro quedando asi:

Imprmir_Guia_Consolidada cbCarga.Text, Fila, Check1.Value

Código vb:

Sub Imprmir_Guia_Consolidada(ByVal NroEnvioAct As Boolean, _
                             ByVal cFilaActual As String, _
                             ByVal Intercalado As String)
 
...
 
nHora1 = Format(Time, "hh:mm")
TWIPS = 567
Printer.ScaleMode = 7
Printer.FontName = "COURIER NEW"
Printer.PaperSize = vbPRPSA4
Printer.Orientation = vbPRORPortrait
Printer.PrintQuality = vbPRPQDraft
[B]Printer.Copies = IIf(Intercalado = True, 2, 1)[/B]
ImprimeCabeceradeGuia nLocaIndividual, _
 
 
 
....
 

y cuando le paso chek1.value=true, debería ser 2 ... pero me sale el error...

[erbuson]

Hola, antes de nada, comprueba por si se trata de eso, dos cosas, por una parte dices que usas Check1 y quiero suponer que Check1 actualiza el valor de Intercalado ya que de lo contrario ¿ Cuando cambia de valor intercalado ?

Por otra parte la instruccion Iff esta mal planteada ya que deberia ser:

Iff(Intercalado, 2, 1) en lugar de Iff(Intercalado = True, 2, 1)

Saludos

Edito para aclarar que acabo de Ver que le pasas intercalado como String y lo condicionas a un valor Boolean ahí hay evidentemente otro error.

[dconsolidado]

Hola, tienes razon, ya lo modifiqué, pero igua no imprime



ya vere como le hago..

pero gracias por la ayuda... chevere contigo

Salu2.