Comprobar impresora
Hola baroclo sabes quiero saber como es que puedo hacer lo siguiente:
Quiero que cunado pulsen el botón de imprimir primero compruebe el sistema si hay una impresora instalada si no existiera te mande un mensaje diciendo que no ha conectado la impresora con la opción de aceptar.
Descubrí que cuando le pongo esta sintaxis.
on mouseUp me
set texto = new(xtra "PrintOMatic")
setMargins texto, Rect(30,20,25,25) -- Cambia los margenes
append texto, member ("Txt1-impri") -- Indica que quiere imprimir el texto del miembro del sprite 1
setTextFont texto, "Helvetica" -- Establece el tipo de letra Helvetica
setTextSize texto, 10 -- tamaño de letra 10 puntos
setTextStyle texto, "normal" -- tipo de letra normal
printpreview texto -- esto hace una visualizacion previa del documento
if doJobSetup(texto) then print texto -- Imprime
end
Y si no hay una impresora conectada me manda error de sintaxis ayudame en que parte de este código le pongo para que primero detecte una impresora instalada.
Gracias por tu tiempo.
webelgrillo.
Quiero que cunado pulsen el botón de imprimir primero compruebe el sistema si hay una impresora instalada si no existiera te mande un mensaje diciendo que no ha conectado la impresora con la opción de aceptar.
Descubrí que cuando le pongo esta sintaxis.
on mouseUp me
set texto = new(xtra "PrintOMatic")
setMargins texto, Rect(30,20,25,25) -- Cambia los margenes
append texto, member ("Txt1-impri") -- Indica que quiere imprimir el texto del miembro del sprite 1
setTextFont texto, "Helvetica" -- Establece el tipo de letra Helvetica
setTextSize texto, 10 -- tamaño de letra 10 puntos
setTextStyle texto, "normal" -- tipo de letra normal
printpreview texto -- esto hace una visualizacion previa del documento
if doJobSetup(texto) then print texto -- Imprime
end
Y si no hay una impresora conectada me manda error de sintaxis ayudame en que parte de este código le pongo para que primero detecte una impresora instalada.
Gracias por tu tiempo.
webelgrillo.
1 respuesta
Respuesta de baronclo
1
Debes incluir lo siguiente
Después de iniciar el objeto de impresión
set texto = new(xtra "PrintOMatic")
if not objectP(texto) then
-- no printer
alert "There is no currently selected printer."
exit
end if
Luego todo el resto del script
SetMargins texto, Rect(30,20,25,25) -- Cambia los margenes
append texto, member ("Txt1-impri") -- Indica que quiere imprimir el texto del miembro
.
.
.
.
.
.
Después de iniciar el objeto de impresión
set texto = new(xtra "PrintOMatic")
if not objectP(texto) then
-- no printer
alert "There is no currently selected printer."
exit
end if
Luego todo el resto del script
SetMargins texto, Rect(30,20,25,25) -- Cambia los margenes
append texto, member ("Txt1-impri") -- Indica que quiere imprimir el texto del miembro
.
.
.
.
.
.
