Consulta al imprimir dos imágenes
hola, tengo las siguientes instrucciones
Private Sub Command1_Click()
'DVD COMUN'
Dim x As Printer
For Each x In Printers
If x.DeviceName = "CARATULA" Then
Set Printer = x
If (MsgBox("IMPRESORA CARATULA", vbYesNo + vbCritical, "¿CONTINUAR?") = vbYes) Then
Printer.Print
VB.Printer.Scale (0, 0)-(10000, 1000)
Printer.ScaleMode = vbCentimeters
Printer.CurrentX = 50: Printer.CurrentY = 100
'for the position of the picture on paper
Printer.PaintPicture Image1.Picture, 1, 1.2, 27.3, 18.2
Printer.Line (1, 1.2)-(28.3, 19.4), , B
Printer.EndDoc
Else
End If
End If
Next
End Sub
y
Private Sub Command8_Click()
'IMPRIMIR CD o DVD en IMPRESORA 01 (UNO)'
Dim x As Printer
For Each x In Printers
If x.DeviceName = "UNO" Then
Set Printer = x
If (MsgBox("IMPRESORA 01", vbYesNo + vbCritical, "¿CONTINUAR?") = vbYes) Then
Printer.Copies = Val(txtCopies.Text)
Printer.Print
VB.Printer.Scale (0, 0)-(10000, 1000)
Printer.ScaleMode = vbCentimeters
Printer.CurrentX = 50: Printer.CurrentY = 100
'for the position of the picture on paper
Printer.PaintPicture Image1.Picture, 1.3, 0.55, 11.75, 11.75
'(1.3) menor valor imagen se mueve a la derecha
'En esta instruccion puedes indicarle tambien el tamaño
Printer.FillStyle = vbFSSolid
Printer.FillColor = vbWhite
'------ colocar circulo blanco para que tape imagen -----'
If Option1 = True Then
Printer.Circle (7.3, 6.45), 1.15, RGB(100, 100, 100)
End If
If Option2 = True Then
Printer.Circle (7.3, 6.45), 0.85, RGB(100, 100, 100)
'-------------------------- tanaño ----------------------
End If
Printer.EndDoc
registro_BD
contador
registro_BD_fecha
txtCopies.Text = "1"
Else
txtCopies.Text = "1"
End If
End If
Next
End Sub
Las cuales lo que hacen es que imprima una imagen jpg en la impresora "caratula" y otra imagen jpg en la impresora "uno", el problema radica que al imprimir primero en la impresora uno, esta sale perfecto, pero si luego imprimo en la impresora "caratula" esta sale en blanco... Pero si imprimo primero en la impresora "caratula" esta sale perfecto y al imprimir en la impresora "uno" despues sale tambien perfecta la impresion. Las imagenes las cargo mediante un filelistbox y son cargadas a un image1, a que puede deberse este problema?