Clique abaixo para nos ajudar
Conectar-se

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Quem está conectado
14 usuários online :: Nenhum usuário registrado, Nenhum Invisível e 14 Visitantes :: 2 Motores de busca

Nenhum

[ Ver toda a lista ]


O recorde de usuários online foi de 468 em 1/3/2012, 10:43
ListBox

23/5/2017, 10:37 por Rosangela Pires

Ola Amigos.

Para se movimentar na grid com as setas colocamos no Metodo AfterChange da grid …

Comentários: 0

TRY BEGIN E FLOCK()

17/4/2017, 10:32 por AJC

Pessoal estou tendo alguns problemas de gravação em rede, estou usando
try begin, mas vi algo na …

Comentários: 0

Exportar Dados Campo Memo Tabela DBF

10/4/2017, 10:28 por fcampos

Olá bom dia.

Estou tentando exportar os dados de algumas tabelas em formato dbf pelo foxpro.
O …

Comentários: 2

Função EVL()

8/4/2017, 12:18 por Clebervfp

Bom dia a todos.
Vim compartilhar de uma Função do próprio VFP que me benefício muito.
Função …

Comentários: 0

COMO BLOQUEAR REGISTRO OU TABELA NO VISUAL FOXPRO PARA GRAVAÇÃO EM REDE

3/4/2017, 10:29 por AJC

Pessoal estou tendo um problema que acontece sempre busco na minha tabela de clientes o ultimo …

Comentários: 2

Estatísticas
Temos 7082 usuários registrados
O último usuário registrado atende pelo nome de Maiara Bosco

Os nossos membros postaram um total de 49 mensagens em 26 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



avatar
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
avatar
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
avatar
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
avatar
Rosangela Pires
Participa Bastante
Participa Bastante


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