Tcl/Tk Curso On-Line de Programação

Imprimindo

Até bem pouco tempo só era possível imprimir, a partir de programas em Tcl/Tk, em ambiente UNIX. Isso porque não havia qualquer biblioteca de impressão para Windows ou MacOS.

Recentemente, alguns programadores começaram a desenvolver um sistema de impressão único para UNIX, Windows e MacOS. Esta solução, contudo, não é definitiva, pois a Ajuba Solutions está desenvolvendo seu próprio sistema de impressão, que deverá ser liberado em meados de outubro de 2000.

Nesta aula veremos como imprimir no Linux( UNIX ) e Windows. Começaremos com o Windows, pois envolve a utilização de bibliotecas externas. Mas adiante veremos como imprimir em ambiente UNIX.

Imprimindo em ambiente Windows

Antes que possamos prosseguir, faça o download dos pacotes de impressão para Windows. Caso esteja utilizando a versão 8.2 do Tcl/TK, baixe os seguintes arquivos, do meu site, http://www.souzamonteiro.com/download_freeware.shtml:

• gdi823.zip
• prnt823.zip

Para acrescentar a funcionalidade de impressão aos seu programas em Tcl/Tk para Windows, inclua as seguintes linhas no início de seus programas:

package require printer

package require gdi

Em ambiente UNIX o pacote printer, simulará um hdc.

Os comandos a seguir são exclusivos para ambiente Windows, e constituem a interface GDI:
 

Exemplos

O exemplo a seguir mostra como gerar um relatório utilizando as bibliotecas gdi e printer:

# Abre o job de impressao
set hdc [printer open]
printer job start
gdi map $hdc -mode MM_LOMETRIC

set novapagina 1

# As posicoes, as vezes, sao negativas, na vertical. Se for o seu caso,
# utilize um valor negativo para pos e decremente-o, ao inves de incrementa-lo,
# no loop abaixo. A minha impressora EPSON Stylus COLOR 600, a jato de tinta,
# requer valores negativos, ja a minha impressora XEROX DocuPrint P8e, a laser,
# reguer valores positivos. Multiplique o valor em milimetros por 10.
set pos 200
set numero 1

for {set i 0} {$i < 100} {incr i} {
    if {$novapagina == 1} {
        printer page start
        
        gdi text $hdc 200 $pos -anchor w -justify left -font {Arial 12 bold} -text "TESTE DE IMPRESSAO"
        set pos [expr $pos + 50]
        gdi line $hdc 200 $pos 2000 $pos
        set pos [expr $pos + 50]
        set novapagina 0
        set numero 1
    }

    gdi text $hdc 200 $pos -anchor w -justify left -font {Arial 10} -text "Linha:"
    gdi text $hdc 500 $pos -anchor w -justify left -font {Arial 10} -text $i
    set pos [expr $pos + 50]

    incr numero
    
    if {$numero > 50} {
        set novapagina 1
        set pos 200
        set numero 1
                
        printer page end
    }
}

gdi text $hdc 200 $pos -anchor w -justify left -font {Arial 10} -text "Copyright(C) 2000 by Roberto Luiz Souza Monteiro"
set pos [expr $pos + 50]
gdi text $hdc 200 $pos -anchor w -justify left -font {Arial 10} -text "Este codigo pode ser reutilizado nos termos da licenca GNU LGPL"

printer page end

printer job end
printer close

Nenhuma biblioteca é necessária para imprimir em ambiente UNIX, pois o widget canvas é capaz de gerar uma saída PostScript que pode ser enviada diretamente para o comando lpr. Assim, veremos apenas um exemplo de como imprimir usando o widget canvas, sem entrar em detalhes sobre o comando postscript, já que ele foi apresentado na aula 13.

Exemplos

O exemplo a seguir utiliza um canvas para imprimir uma pagina de cada vez. Neste exemplo nao ha recurso de visualizacao:

# cria uma area de impressao
toplevel .t
wm withdraw .t
canvas .t.c -width 210m -height 297m
pack .t.c

# Configura uma flag para sinalizar a mudanca de pagina
set novapagina 1

# Posicoes em mm.
set unid m
set pos 20
set numero 1

for {set i 0} {$i < 100} {incr i} {
    if {$novapagina == 1} {
        .t.c create text 20m $pos$unid -anchor w -justify left -font {Arial 12 bold} -text "TESTE DE IMPRESSAO"
        set pos [expr $pos + 5]
        .t.c create line 20m $pos$unid 2000 $pos$unid
        set pos [expr $pos + 5]
        set novapagina 0
        set numero 1
    }

    .t.c create text 20m $pos$unid -anchor w -justify left -font {Arial 10} -text "Linha:"
    .t.c create text 50m $pos$unid -anchor w -justify left -font {Arial 10} -text $i
    set pos [expr $pos + 5]

    incr numero
    
    if {$numero > 50} {
        set novapagina 1
        set pos 20
        set numero 1

        .t.c postscript -x 0 -y 0 -width 210m -height 297m -file /tmp/pagina$i.ps

        exec lpr /tmp/pagina$i.ps
        .t.c delete all

    }
}

# Destroi a area de impressao

destroy .t

Um exemplo mais avancado de impressao sera apresentado no final deste curso. Eu realizei alguns testes com o canvasprintdialog dos Iwidgets, do [incr Tcl/Tk], mais a caixa de dialogo apresentou muita instabilidade. Eu recomendo um estudo do codigo fonte da minha biblioteca de impressao, que faz parte dos meus mega-widgets. Procure na area de download do meu site: http://www.souzamonteiro.com.

Para uma descrição detalhada de todos os comandos disponíveis para impressão em Tcl/Tk, consulte a documentação da sua biblioteca de impressão.

Para maiores informações envie e-mail para info@souzamonteiro.com.