Página 1 de 1
hprinte preview e impressao
Enviado: 06 Jan 2011 17:48
por jairfab
Gostaria de saber como poderia fazer para imprimir direto sem passar pelo preview com Hprinter()
Tentei assim
oPrinter:StartDoc(.T.) //
Meu codigo aqui
oPrinter:EndDoc()
oPrinter:Preview()
oPrinter:End()
Funcionou para o preview,
Para imprimir nao seria somente colocar oPrinter:StartDoc(.F.), fazendo isto nao acontece nada...
alguem pode dar uma dica...
Re: hprinte preview e impressao
Enviado: 07 Jan 2011 13:38
por jairfab
Conseguir no codigo fonte da Class
Código: Selecionar todos
Local TmpResp:=1 ,aTooltips:={}
aadd(aTooltips,"Mensagem um")
aadd(aTooltips,"Mensagem dois")
cprinter := getdefaultprinter() // Impressora default
oPrinter := HPrinter():New(cprinter,.T.,,,.F.,NroVias,.F.)
oFontb := oPrinter:AddFont( "Times New Roman",3 )
oPen6 := HPen():Add( , , VColor("00ff00"))
oPrinter:StartDoc(.T.)
oPrinter:Say( "test", 10,25,80,27+18,,oFontb)
oPrinter:Say( "test2",10,27+18,80,58,,oFontb)
oPrinter:EndPage()
oPrinter:EndDoc()
IF TmpResp == 1
oPrinter:Preview(,,aTooltips)
else
oPrinter:PrintMeta()
endif
oPrinter:End()
A minha duvida agora é como colocar botoes resource no preview???
Alguem poderia me dar uma dica
Re: hprinte preview e impressao
Enviado: 11 Jan 2011 20:06
por jairfab
Personalizar o preview, Tipo botão de zoom, print com imagem tipo bmp
Re: hprinte preview e impressao
Enviado: 14 Jan 2011 09:11
por jairfab
Código: Selecionar todos
PRIVATE aBitmaps:={},aTooltips:={}
aadd(aBitmaps,"imagem\anterior.bmp")
aadd(aBitmaps,"imagem\"maiszoon.bmp")
aadd(aBitmaps,"imagem\"menoszoon.bmp")
aadd(aBitmaps,"imagem\"primeiro.bmp")
aadd(aBitmaps,"imagem\"rprinter.bmp")
aadd(aBitmaps,"imagem\"proximo.bmp")
aadd(aBitmaps,"imagem\"sair.bmp")
aadd(aBitmaps,"imagem\"ultimo.bmp")
aadd(aTooltips,"anterior")
aadd(aTooltips,"maiszoon")
aadd(aTooltips,"menoszoon")
aadd(aTooltips,"primeiro")
aadd(aTooltips,"rprinter")
aadd(aTooltips,"proximo")
aadd(aTooltips,"sair")
aadd(aTooltips,"ultimo")
oPrinter:Preview(,aBitmaps,aTooltips)
Estou fazendo assim, mas estar dando erro, porem se eu coloco so as mensagem compilar e funciona, mas para as imagem ja tentei passando com resource tambem e continuar com erro, alguem sabe como seria a forma corretar
Re: hprinte preview e impressao
Enviado: 19 Jan 2011 23:16
por athayde
PUBLIC aBitmapsPreview:={.F.,"images\32\exit.gif","images\32\fileprint.gif","images\32\retrocessorapido.gif","images\32\rightarrow.gif","images\32\leftarrow.gif","images\32\avancorapido.gif","images\32\viewmag-.bmp","images\32\viewmag+.bmp",.T.}
PUBLIC aTraducaoPreview:={"Sair","Imprimir","Pagina Inicial","Proxima Pagina","Pagina Anterior","Ultima Pagina","Menos Zoom","Mais Zoom"}
oPrinter:Preview(,aBitmapsPreview,aTraducaoPreview)
[]s
Fernando