cLogo := "LOGO.JPG"
IF VALIDA_JPG( cLogo ) // ESTA EM: FUNCOES.PRG
// NADA A FAZER - IMAGEM VALIDA
ELSE
cLogo := SPACE(08) // PARA NAO QUEBRAR
ENDIF
FUNCTION VALIDA_JPG( cFile )
If ValidJpg( cFile )
// NADA A FAZER
RETURN( .T. ) // IMAGEM VALIDA
Else
MsgInfo( "LOGO.JPG(Imagem) DANIFICADO SOLICITE UM NOVO LOGO.JPG", ;
"Imagem Inválida/Danificada" )
EndIf
RETURN( .F. )
// VALIDAR A IMAGEM DO LOGO.JPG SE ESTA DANIFICADO OU NAO.
Function ValidJpg( cArq )
Local nRet := FITypeFromMemory( MemoRead( cArq ) )
Return nRet >= 0
In Preview,
nLinLogo := 1.00
nColLogo := 350 // 600
nLargLogo := 650 // 650
nAltLogo := 450 // 540
@ nLinLogo, nColLogo PRINT TO oPrn IMAGE "LOGO.JPG" SIZE nLargLogo, nAltLogo LASTROW nRow
El update liberado en marzo como actualización acumulativa (y por lo tanto no voluntaria) estaba generando problemas en algunos equipos cuando procedían a imprimir algún documento.
rterraz wrote:HOLA AMIGOS
Sufri el mismo problema y me costo encontrar la causa, fue la actualizacion de windows que me rompio varias cosas aparte de que dejo de funcionar el Preview y en consecuencia la impresion de los códigos QR que uso en la facturacion electrónica.
Muchas gracias a Vensanto !!!! que subio al foro hace tiempo una funcion EanQrCode() que resuelve el problema de windows al menos para la impresion de los QR que es lo que necesitaba desesperadamente
Si alguien tiene la misma necesidad que yo, con esto soluciona el problema!
Abrazo a todos
Edition Windows 10 Pro
Version 20H2
Installed on 24-06-2020
OS build 19042.867
Experience Windows Feature Experience Pack 120.2212.551.0
Out-of-band update to address an error when attempting to print to certain printers
Microsoft identified an issue that affects Windows 10 devices which applied the March 2021 security update released March 9, 2021, and a resolution has been expedited. This known issue affects printing operations for devices using certain Type 3 printer drivers, which might receive an error with a blue screen when attempting to print. An out-of-band optional update is now available on the Microsoft Update Catalog.
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: Google [Bot] and 53 guests