PC Toledo

Boa tarde.
Alguém poderia postar ou me enviar um exemplo de um arquivo já gerado do bloco K.
Mesmo que seja parcial.
Agradeço

Preciso imprimir tipo como na relação dos posts deste forum, ou seja uma linha normal e a outra com um fundo, para poder facilitar a leitura.

Help ........

Como faço para imprimir tipo zebrado.
uma linha sem fundo e a outra com fundo.

E para imprimir ????

Preciso fazer um scroll em um say, só que da forma acima, não funcionou.

Como faço ??

O corpo de programa acima é tudo que tem relacionado a impressão.

Como faço para definir o tamanho do papel ???
Independente do que está na impressora, ele assume tamanho "carta".


init printer oPrinter
if oPrinter == Nil
break
end

oFont3 := oPrinter:AddFont( "Times New Roman",3.5 )
oFont4 := oPrinter:AddFont( "Times New Roman",4 )
oFont := oPrinter:AddFont ...

Meu sistema é misto, tem parte gráfica e agora está tendo uma parte texto.
Na parte gráfica os acentos funcionam de forma correta.
Como faço para que no nodo texto os acentos também funcionem de forma correta?

Eu preciso que as letras saiam também inclinadas

Em tela utilizo este código, e a imagem sai perfeita.

A dimensão da imagem é 205 x 165

Quem pode me ajudar ???

Preciso apresentar uma palavra na tela inclinada (90º), como

Como faço para imprimir uma imagem.
Uso a impressão desta forma:


#include "windows.ch"
#include "guilib.ch"
#include "common.ch"
#include "paths.ch"
#include "Inkey.ch"
static oPrinter, oFont, nLinha, nPagina

function Relatorio()
Local nImpresso:=0
INIT PRINTER oPrinter
IF oPrinter == Nil ...

Valeu, funcionou com a seguinte sintaxe:

Tenho um groupbox em meu sistema, e no decorrer do programa, altero o valor de cPageY.
Tem como atualizar, para que mostre o nome do grupo atualizado.
Fazer oGrupoNaturezaY:refresh(), não funcionou...