hprinte preview e impressao

[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...

[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

[jairfab]

Personalizar o preview, Tipo botão de zoom, print com imagem tipo bmp

[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

[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