// exemplo iSelectFont
nFonte_Numero is int=iSelectFont(1,True,"Arial",8,iBold,LightGray) iDestination(iPDF) Marca_Dagua() iPrint(iFont(1) + "") iPrint("") iPrint("Relatorio de Bancos") iHLine(0, iPageWidth()) iPrint("") iPrint(iXPos(1) + "Codigo" + iXPos(18) +"Nome") iHLine(0, 30) iPrint("") FOR EACH bancos iPrint(iXPos(1)+ NumToString(bancos.id_bancos,"06d") + iXPos(18) + bancos.nome) END iHLine(0, iPageWidth(), 2.5) iPrint("") iPrint("Tipos Linhas - iDotted") iHLine(0, 30,iDotted) iPrint("") iPrint("iDotAndDash") iHLine(0, 40,iDotAndDash) iPrint("") iPrint("iDashed") iHLine(0, 50,iDashed) iEndPrinting() ShellExecute(iLastFile())
INTERNAL PROCEDURE Marca_Dagua() Marca_Dagua is Watermark Marca_Dagua..Text = "Homologação" Marca_Dagua..Font..Name = "Arial" Marca_Dagua..Position = iCenterH + iBottom Marca_Dagua..Opacity=50 iParameterWatermark(iWatermarkPrinting + iWatermarkDuplicate, Marca_Dagua) END
// Blog com Video e Exemplo
http://windevdesenvolvimento.blogspot.com.br/2016/11/aula-978-windev-relatorio-37-iselectfont.html
https://www.youtube.com/watch?v=7GYnraTyzCw
|