Clique abaixo para nos ajudar
Login

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Quem está conectado
13 usuários online :: Nenhum usuário registrado, Nenhum Invisível e 13 Visitantes :: 1 Motor de busca

Nenhum

[ Ver toda a lista ]


O recorde de usuários online foi de 468 em 1/3/2012, 10:43
Últimos assuntos
» Ajuda a direcionar
8/12/2016, 01:17 por miiiih

» Alterar uma palavra num arquivo de texto
5/12/2016, 12:02 por Teseu

» Buscar endereço por CEP
3/12/2016, 19:59 por pedrossian

» USAR WEBSERVICE NO VFP9
2/12/2016, 09:50 por AJC

» BANIMENTO DE USUARIO
17/11/2016, 08:31 por FAF

» Impressora Ticket
15/11/2016, 09:20 por clima238

» Gráfico
9/11/2016, 10:43 por hidroluz

» TRANSPOR TABELA
9/11/2016, 10:34 por hidroluz

» MUDANÇA DO .DBF PARA POTSGREE
9/11/2016, 09:12 por AJC

» Website com videoaulas sobre linguagens de programação
8/11/2016, 09:56 por JLDR

» Parceria para desenvolvimento de template em Wordpress
7/11/2016, 19:15 por mindix

» Data fica invertida na planilha que é gerada via programa.
27/10/2016, 11:00 por Linghston

» Maximizar report direto do menu
21/10/2016, 20:48 por Rosangela Pires

» Fechar form com tempo
21/10/2016, 10:15 por Rosangela Pires

» URGENTE: Ajuda com impressora ELGIN-L42
14/10/2016, 09:53 por megasoft

» Opções para gerar NF-e
10/10/2016, 09:07 por mavsinfo

» Google Maps
8/10/2016, 15:08 por Rosangela Pires

» Mysql
5/10/2016, 11:22 por Marcos Guedes

» Acessando Banco em MYSQL de um projeto WORDPRESS
3/10/2016, 10:58 por Marcos Guedes

» OPTION SELECT MOSTRAR CAMPOS QUASE PRONTO
26/9/2016, 21:09 por BobKuspe

Alterar uma palavra num arquivo de texto

5/12/2016, 12:02 por Teseu

Olá prezados colegas de programação!

Este é eu primeiro post no fórum e gostaria de poder …

Comentários: 0

Buscar endereço por CEP

3/12/2016, 19:59 por pedrossian

Caros amigos, meu código para buscar endereço pelo CEP não funciona mais.
Alguém pode me …

Comentários: 0

USAR WEBSERVICE NO VFP9

2/12/2016, 09:50 por AJC

Pessoal, preciso de um material ou livro que me traga instruções como
usar a consumação de …

Comentários: 0

BANIMENTO DE USUARIO

13/11/2016, 16:21 por FAF

A usuária ROSANGELA PIRES ao tentar acessar o Forum obtem sempre a mensagem de BANIMENTO.
A mesma …

Comentários: 3

Impressora Ticket

15/11/2016, 09:20 por clima238

Bom dia,
Por favor alguém me explique porque o código abaixo imprime no ecrã em vez do printer: …

Comentários: 0

Estatísticas
Temos 6964 usuários registrados
O último usuário registrado atende pelo nome de Ricardo Cassolatto

Os nossos membros postaram um total de 17119 mensagens em 2577 assuntos

Comandos para Impressão via código

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Resolvido Comandos para Impressão via código

Mensagem por Rosangela Pires em 13/2/2013, 22:57

Amigos,

Como postei anteriormente estou tentanto fazer um relatório via código e estou com algumas dúvidas que são :

Já descobri por um post no forum que posso utilizar SET PRINTER FONT 'DRAFT 10cpi',10, para configuar a fonte e o tamanha da mesma.

Agora tenho as seguintes dúvidas :

1- Nesse mesmo post, no exemplo, foi aplicado o código "???CHR(27)+"C"+CHR(32)"
O Que ele faz...

2- Como faço para definir o papel se A4 ou Carta e a orientação se Retrato ou Paisagem..

3- Criei um Cursor do tipo "Create Cursor TEMPPRINT (Nome C(30), Telefone C(15))"
e nele por "append from" inclui dados de uma outra tabela.
Quando criei o relatorio por coluna, a linha de impressão fica desalinhada, ou seja, o campo nome possue 30 caracteres contudo na impressão se não forem preenchidos todos os 30 caracteres os espaços em branco desaparecem desalinhando a linha de impressão.
Isso com todos os campos do Cursor criado.
Se o campo telefone não for todo preenchido os espaços em branco desaparecem.
Tenho como corrigir isso.
Quando o relatório é gerado pelo gerenciador de relatórios os espaços são mantidos sem haver o desalinhamento das colunas.

Alguem pode me ajudar....

[]´s

Rosangela Pires




Rosangela Pires
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido Re: Comandos para Impressão via código

Mensagem por Julio em 14/2/2013, 07:58

Isso é para ser impresso em impressora matricial?

Julio
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Resolvido Re: Comandos para Impressão via código

Mensagem por Rosangela Pires em 14/2/2013, 08:33

Ola Julio,

Não.

Impressora Laser ou Jato de Tinta.

[]´s

Rosangela Pires

Rosangela Pires
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido Re: Comandos para Impressão via código

Mensagem por Julio em 14/2/2013, 09:48

Precisa ser via codigo, nao pode ser pelo report wizard do proprio VFP?

Veja este codigo de uma etiqueta que o cliente quiz que fosse impresso via impressora matricial e veja se lhe ajuda.


Código:
    SELECT identcasal,anilham,corm,anilhaf,corf,dtcasala,localgail,criadnro;
      FROM casal_c INTO CURSOR Pesq1

    SELECT Pesq1
    DO WHILE ! EOF()
      SELECT pesq1
      a1=corm
      a2=corf
      a3=identcasal
      a4=anilham
      a5=anilhaf
      a6=dtcasala
      a7=localgail
      a8=criadnro
      SELECT corobjo
      SET ORDER TO cod_cor
      SEEK ALLTRIM(a1)
      abvm=abreviatu
      SELECT corobjo1
      SET ORDER TO cod_cor
      SEEK ALLTRIM(a2)
      abvf=abreviatu
      SELECT tmp
      APPEND BLANK
      replace abrevm WITH abvm
      replace abrevf WITH abvf
      replace identcasal WITH a3
      replace anilham WITH a4, anilhaf WITH a5, dtcasala WITH a6
      replace localgail WITH a7, corm WITH a1, corf WITH a2
      replace criadnro WITH a8
      SELECT pesq1
      skip
    ENDDO
    SELECT tmp
    GO top
    MESSAGEBOX("Escolha a impressora e o modelo de papel",0+16,"Aviso do Sistema!")
*SYS(1037)
*DO etiqfed
*Getprinter() && aqui voce seleciona a impressora
sys(1037)
*
STORE 0 TO L
SELECT tmp
INDEX ON ALLTRIM(identcasal) TAG tmp
SET ORDER TO tmp
GO TOP
SET DELE ON
SET DEVICE TO PRINTER
SET PRINTER ON
SET DEVI TO PRINT
L=0
IF NOT EOF()
DO WHILE .NOT. EOF()
  @ L,00 SAY chr(27)+chr(67)+chr(9)+chr(18)
  @ L,00 SAY "Criadouro Nr"
  @ L,14 SAY criadnro
  @ L,26 SAY "Gaiola:"
  @ L,32 SAY localgail
  L=L+1
  @ L,00 SAY "MACHO: "
  @ L,10 say ALLTRIM(anilham)
  L=L+1
  @ L,00 SAY "COR: "
  @ L,10 say ALLTRIM(corm)
  @ L,22 say ALLTRIM(abrevm)
  L=L+1
  @ L,00 SAY "FEMEA: " 
  @ L,10 say ALLTRIM(anilhaf)
  L=L+1
  @ L,00 SAY "COR: "
  @ L,10 say ALLTRIM(corf)
  @ L,22 say ALLTRIM(abrevf )
  L=L+1
  @ L,00 say dtcasala
  @ L,12 SAY "Ident.: "
  @ L,25 say identcasal
  L=L+1
  @ L,00 SAY "OBS__________________________________"
  L=L+1
  @ L,00 SAY "_____________________________________"
  L=L+2
  SELECT tmp
  SKIP

  if L >=73
    l=0
  endif
 
  IF EOF()
    EXIT
  ENDIF

ENDDO

ELSE
  WAIT WINDOW 'NÃO EXISTEM REGISTROS PARA IMPRIMIR' TIMEOUT 1
ENDIF

SET DEVICE TO SCREEN
SET PRINT TO
SET PRINT OFF

RELEASE Thisform

Veja se estas instruções lhe ajuda tambem, foi feito baseado para utilizar o codigo acima.

Clique Aqui Para Download

Julio
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Resolvido Re: Comandos para Impressão via código

Mensagem por Julio em 14/2/2013, 13:13

Rosangela

Código:
"???CHR(27)+"C"+CHR(32)"
Se não me engano o codigo acima é para configurar o tamanho do papel. Isto para impressora matricial.

Lembra quando saiu as impressoras deskjet HP e para utilizar esta impressora no clipper utilizamos estas configurações?
Voce chegou a utilizar, isso foi bem no inicio.
Código:
*
* FONTEHP.PRG | CARACTERES PARA IMPRESSAO NA IMPRESSORA SERIE HP-DESKJET
* JULIO
*
*// TAMANHO DO PAPEL, TEXTO E ORIENTACAO DA PAGINA
OFICIO=CHR(27)+CHR(38)+CHR(108)+CHR(65) // TAMANHO DO PAPEL
A4=CHR(27)+CHR(38)+CHR(108)+CHR(50)+CHR(54)+CHR(65) // TAMANHO DO PAPEL
PAISAGEM=CHR(27)+CHR(38)+CHR(108)+CHR(49)+CHR(79) // ORIENTACAO
RETRATO=CHR(27)+CHR(38)+CHR(108)+CHR(48)+CHR(79) // ORIENTACAO
LENGH=CHR(27)+CHR(38)+CHR(108)+'#070#'+CHR(80) // COMPRIMENTO DA PAGINA
LENTXT=CHR(27)+CHR(38)+CHR(108)+'#070#'+CHR(70) // COMPRIMENTO DA PAGINA
TOPO=CHR(27)+CHR(38)+CHR(108)+'#000#'+CHR(69) // TOPO DA PAGINA

*// TIPOS DE LETRA
ELITE=CHR(27)+CHR(40)+CHR(115)+CHR(51)+CHR(84)
TIMES=CHR(27)+CHR(40)+CHR(115)+CHR(52)+CHR(49)+CHR(48)+CHR(49)+CHR(84)
LETTER=CHR(27)+CHR(40)+CHR(115)+CHR(54)+CHR(84)
UNIVERS=CHR(27)+CHR(40)+CHR(115)+CHR(53)+CHR(50)+CHR(84)

*// QUALIDADE DE IMPRESSAO
CARTA=CHR(27)+CHR(40)+CHR(115)+CHR(50)+CHR(81)
RASCUNHO=CHR(27)+CHR(40)+CHR(115)+CHR(49)+CHR(81)

*// ESTILO DE LETRAS
VERTIC=CHR(27)+CHR(40)+CHR(115)+CHR(48)+CHR(83)
ITALIC=CHR(27)+CHR(40)+CHR(115)+CHR(49)+CHR(83)
NORMAL=CHR(27)+CHR(40)+CHR(115)+CHR(48)+CHR(66)
BOLD=CHR(27)+CHR(40)+CHR(115)+CHR(51)+CHR(66) //NEGRITO
EXTRA=CHR(27)+CHR(40)+CHR(115)+CHR(55)+CHR(66)
PC850=CHR(27)+CHR(40)+CHR(115)+'#06#'+CHR(72) //CONJUNTO DE CARACTERES

*// TAMANHO DOS CARACTERES (CPP-CARC. POR POLEGADAS)
TAM0=CHR(27)+CHR(40)+CHR(115)+'04'+CHR(86)
TAM1=CHR(27)+CHR(40)+CHR(115)+'10'+CHR(86)

*// TAMANHO DO PONTO - ALTURA DO CARACTERE
EXPAND=TAM1+CHR(27)+CHR(40)+CHR(115)+'06'+CHR(72) //48
EXPRED=TAM1+CHR(27)+CHR(40)+CHR(115)+'08'+CHR(72) //80
NOREXP=TAM1+CHR(27)+CHR(40)+CHR(115)+'11'+CHR(72) //80
NORM=TAM0+CHR(27)+CHR(40)+CHR(115)+'10'+CHR(72) //80
NORM0=TAM1+CHR(27)+CHR(40)+CHR(115)+'10'+CHR(72)
NORM1=TAM0+CHR(27)+CHR(40)+CHR(115)+'11'+CHR(72) //96
NORM2=TAM0+CHR(27)+CHR(40)+CHR(115)+'12'+CHR(72) //96
NORM3=TAM1+CHR(27)+CHR(40)+CHR(115)+'13'+CHR(72) //96
NORM4=TAM1+CHR(27)+CHR(40)+CHR(115)+'20'+CHR(72) //96
REDUZ1=TAM0+CHR(27)+CHR(40)+CHR(115)+'15'+CHR(72) //133
REDUZ2=TAM1+CHR(27)+CHR(40)+CHR(115)+'15'+CHR(72)
REDUZ3=TAM1+CHR(27)+CHR(40)+CHR(115)+'17'+CHR(72)
REDUZ4=TAM0+CHR(27)+CHR(40)+CHR(115)+'17'+CHR(72) //160
REDUZ5=TAM1+CHR(27)+CHR(40)+CHR(115)+'17'+CHR(72) //160
REDUZ6=TAM0+CHR(27)+CHR(40)+CHR(115)+'30'+CHR(72) //170

*// SOMBREAMENTO
PATTERN=CHR(27)+CHR(42)+CHR(118)+CHR(50)+CHR(84)
GRAY=CHR(27)+CHR(42)+CHR(99)+'#1#'+CHR(71)
SOLIDO=CHR(27)+CHR(42)+CHR(118)+CHR(48)+CHR(84)
DEFAUT=CHR(27)+CHR(40)+CHR(115)+CHR(48)+CHR(66)+VERTIC
ECONO=CHR(27)+CHR(40)+CHR(115)+CHR(49)+CHR(81)

*// ENVIANDO OS COMANDOS PARA IMPRESSORA
L=0
SET DEVICE TO PRINT
L=L+1
*@ L,10 SAY OFICIO+LENGH+LENTXT+PC850+ELITE+TOPO+ECONO+NORM+'TESTE'
L=L+1
@ L,10 SAY ELITE+RASCUNHO+NORMAL+NORM2+SOLIDO+'PAPEL A4 IMPRESSAO TIPO RASCUNHO'
L=L+1
@ L,10 SAY ELITE+CARTA+NORMAL+NORM3+DEFAUT+'PAPEL A4 IMPRESSAO TIPO CARTA 13'
L=L+1
@ L,10 SAY ELITE+CARTA+BOLD+NORM3+PATTERN+'PAPEL A4 PATTERN IMPRESSAO TIPO CARTA  BOLD 13'
L=L+1
@ L,10 SAY UNIVERS+CARTA+EXTRA+REDUZ1+GRAY+'PAPEL A4 IMPRESSAO TIPO CARTA UNIVERS EXTRA GRAY 13'
L=L+1
@ L,10 SAY ELITE+EXTRA+BOLD+NORM4+PATTERN+'ABCDEFGHIJKLMNOPQRSTUVXZWYAPEL A4 IMPRESSAO TIPO CARTA  BOLD 13'
L=L+1
*
**//// USAR ESTE COMO PADRAO
@ L,0  SAY ELITE+CARTA+NORMAL+NORM3+DEFAUT+'1234567 101234567 201234567 301234567 401234567 601234567 701234567 80'

SET DEVICE TO PRINT
RETURN

Colocar as configurações no inico do PRG ou so o que precisa e depois para imprimir utilizava isto:

Código:
@ L,0  SAY ELITE+CARTA+NORMAL+NORM3+DEFAUT+'1234567 101234567 201234567 301234567 401234567 601234567 701234567 80'

Onde ELITE é o tipo de letra; CARTA é o tamanho do papel e assim por diante, escolhe uma das configurações setadas acima e monta a impressao.

Veja este link

Acessar link externo



Julio

Julio
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Resolvido Re: Comandos para Impressão via código

Mensagem por Rosangela Pires em 14/2/2013, 23:56

Obrigado Julio,

Vou testar os códigos.

[]´s

Rosangela Pires

Rosangela Pires
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido Re: Comandos para Impressão via código

Mensagem por Julio em 15/2/2013, 12:53

"Julio, disse!
**//// USAR ESTE COMO PADRAO
@ L,0 SAY ELITE+CARTA+NORMAL+NORM3+DEFAUT+'1234567 101234567 201234567 301234567 401234567 601234567 701234567 80'

Este padrão era que eu tinha determinado para minhas impressões, mas pode criar o seu.

Julio
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Resolvido Re: Comandos para Impressão via código

Mensagem por Rosangela Pires em 15/2/2013, 15:57

Valeu Julio,

Testei e deu certo...

Cosegui montar o relatorio.

Obrigado pela ajuda.

Podemos dar como finalizado o tópico.

[]´s

Rosangela Pires

Rosangela Pires
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido Re: Comandos para Impressão via código

Mensagem por Conteúdo patrocinado Hoje à(s) 17:24


Conteúdo patrocinado


Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo


 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum