Clique abaixo para nos ajudar
Login

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Quem está conectado
19 usuários online :: Nenhum usuário registrado, Nenhum Invisível e 19 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
Últimos assuntos
» 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

» Pesquisa em grid
14/9/2016, 09:24 por AJC

» Total Code Generator
9/9/2016, 17:43 por robsonpassos

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

TRANSPOR TABELA

9/11/2016, 10:34 por hidroluz

Bom dia a todos, gostaria de saber como consigo fazer a transposição de uma tabela no VFP.



Comentários: 0

Estatísticas
Temos 6959 usuários registrados
O último usuário registrado atende pelo nome de EDBERTO

Os nossos membros postaram um total de 17117 mensagens em 2575 assuntos

Impressora Default

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

Em curso Impressora Default

Mensagem por erickbonfim em 22/8/2011, 11:10

Caros,

Como jogar um arquivo txt para a impressora padrão? o processo direto, sem colocar caminho ou porta, gostaria de enviar um determinado arquivo e só passar o nome da impressora. Desde ja agradeço!

erickbonfim
Começando a Participar
Começando a Participar


Voltar ao Topo Ir em baixo

Em curso Re: Impressora Default

Mensagem por alceu11 em 22/8/2011, 12:41

CODIGO 1 , olhe o cursor gerado e analise o codigo.
Código:
SET CONSOLE OFF
SET NOTIFY off
SET SAFETY OFF
close databases
APRINTERS(gaprinters, 1)
CREATE CURSOR imprs (caminho c(50), porta c(50), nomeimp c(50), COMMEN c(50))
Select imprs
INSERT INTO imprs FROM ARRAY gaprinters
SELECT imprs
GO TOP
*aqui o browse e so pra voce ver depos exluir alinha browse
BROWSE NORMAL NODELETE TITLE ' Sair'

Declare Integer GetDefaultPrinter In winspool.drv String @pszBuffer, Integer @pcchBuffer
nBufsize = 250
cPrinter = Replicate(Chr(0), nBufsize)
= GetDefaultPrinter(@cPrinter, @nBufsize)
cPrinter = Substr(cPrinter, 1, At(Chr(0),cPrinter)-1)

Select imprs.nomeimp From imprs Where imprs.caminho = Alltrim(cPrinter) Into Cursor impbusca
**AQUI o teu cursor ImpBusca, com as impressoras so gerar o txt
Select impbusca
Public impdefaut
impdefault = impbusca.nomeimp

MESSAGEBOX('a impressora padrao é:'+CHR(13)+impdefault,48,'aviso')
** primeira opcao
SET PRINTER TO NAME GETPRINTER()
**ou nomeservidornome da impressora
SET PRINTER TO NAME &impdefault
REPORT FORM nomedoseureport TO PRINTER console

CODIGO 2
Código:

***
IF APRINTERS(gaprinters) < 1 && Se nao houver drivers de impressora instalada
WAIT windows 'Nenhuma impressora instalada'
ELSE
SET PRINTER TO NAME "novaPDF" && Para colocar impressora padrao no fox
SELECT Pesquisa
REPORT FORM proposta NOCONSOLE TO PRINTER prompt
ENDIF

Retorne no topico AVISANDO se resolve o topico"!!"

alceu11
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Em curso Re: Impressora Default

Mensagem por erickbonfim em 22/8/2011, 15:55

Alceu,

O meu problema esta na impressão para a impressora zebra tlp2844, eu crio um arquivo txt com os dados da etiqueta e envio para ela atraves do comando "copy teste.txt lpt1" por exemplo, mas isso esta me limitando a utilizar apenas essa porta, temos clientes com porta usb no caso, eu acho q poderiamos resolver esse problema da porta se eu pudesse enviar o comando dizendo o nome da impressora ou pegando a impressora padrão, não consegui com esse exemplo que vc citou acima, muito provavel eu não ter entendido por ser leigo no vfp, mas acho q com essa explicação do real problema, a solução seja até mais simples. Obrigado

erickbonfim
Começando a Participar
Começando a Participar


Voltar ao Topo Ir em baixo

Em curso Re: Impressora Default

Mensagem por Marcos Guedes em 22/8/2011, 16:24

[Você precisa estar registrado e conectado para ver este link.] escreveu:Caros,

Como jogar um arquivo txt para a impressora padrão? o processo direto, sem colocar caminho ou porta, gostaria de enviar um determinado arquivo e só passar o nome da impressora. Desde ja agradeço!
Veja se isto resolve:

Código:
shell_exec("caminho\Arquivo.txt", "print")

FUNCTION shell_exec
  LPARAMETERS lclink, lcaction, lcparms, lcdir, nshowwindow
 
  DECLARE INTEGER FindWindow IN WIN32API AS WGFindWindow STRING, STRING 
  DECLARE INTEGER ShellExecute IN SHELL32.DLL AS WGShellExecute ;
      INTEGER, STRING, STRING, STRING, STRING, INTEGER
 
  m.lcaction = IIF(EMPTY(lcaction), "Open", lcaction)
  m.lcparms = IIF(EMPTY(lcparms), "", lcparms)
  m.lcdir = IIF(EMPTY(lcdir), "", lcdir)
  m.nshowwindow = IIF(VARTYPE(m.nshowwindow) == "N", m.nshowwindow, 0)

  RETURN wgshellexecute(wgfindwindow(0, _SCREEN.CAPTION),  ;
      @lcaction, @lclink,  ;
      @lcparms, @lcdir,  ;
      m.nshowwindow)
ENDFUNC

_________________
Marcos Guedes - Programador e desenvolvedor Web.


Visite o nosso portal:
[Você precisa estar registrado e conectado para ver este link.]

Marcos Guedes
Webmaster
Webmaster


Voltar ao Topo Ir em baixo

Em curso Re: Impressora Default

Mensagem por erickbonfim em 22/8/2011, 16:54

Marcos,

Esse comando resolve quando eu mando imprimir para uma impressora jato de tinta ou lazer, quando eu coloca a zebra tlp2844 como padrão, abre uma janela do windows com a seguinte frase "a pagina é muito pequena para imprimir uma linha, tente imprimir usando fontes menores." quando eu executo o seguinte comando pelo dos "copy teste.txt \\atd-xxx\zebra" funciona!!! se esse comando do DOS tivesse comando dar um copy para a impressora padrão do windows, ja resolveria!!! vou tentar entender esse codigo q vc mandou e pesquisar um pouco e tentar ver o que pode ser, fico no aguardo de mais alguma idéia, mas agradeço os exemplos

erickbonfim
Começando a Participar
Começando a Participar


Voltar ao Topo Ir em baixo

Em curso Re: Impressora Default

Mensagem por erickbonfim em 22/8/2011, 17:29

fiz um teste aqui e desse modo ja resolveria o meu caso:

Código:
X = GETPRINTER()
RUN /1 COPY TESTE.TXT &X
o unico problema é a tela q abre para escolher a impressora, tem algum outro comando q me retorna o caminho da impressora padrão?

erickbonfim
Começando a Participar
Começando a Participar


Voltar ao Topo Ir em baixo

Em curso Re: Impressora Default

Mensagem por alceu11 em 22/8/2011, 17:45

run /n type nf.txt > lpt1

ou
set print to nf.txt

? " 123 "
??
set print to

type nf.txt > lpt1



alceu11
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Em curso Re: Impressora Default

Mensagem por alceu11 em 22/8/2011, 19:55

Definindo a Impressora
Código:
SET PRINTER TO NAME "ZEBRA"  && depois confirma tp2844
SET DEVICE TO PRINT
SET PRINTER FONT 'MS Sans Serif', 10 STYLE "B"
**REPORT FORM RELATORIO TO PRINTER && aqui imprimir o Log da empresa
SET PRINTER TO arq.txt  &&Gerando o TXT, nome arq
l=1
@ l+1,0 say "Teste da Impressora"  FONT 'Courier', 12 STYLE "B"
? CHR(13)+CHR(10)
@ l+1,0 say "na linha de cima pular uma linha ou usar uma ?"
@ L+1,0 SAY '***'

@ l+1,0 say "CAXAMBU EVENTOS"+CHR(18)
@ l+1,0 say "Centro de DIVERSÃO " +CHR(14)
@ l+1,0 say " Rua Azilo,56 VL.JO SAO PAUL0"
?
SET PRINTER to
MODIFY file arq.txt
IF FILE('arq.txt')
 RUN /n TYPE arq.TXT > LPT1
ELSE
WAIT WINDOW 'nao encontrei' TIMEOUT 1
endif

alceu11
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Em curso Re: Impressora Default

Mensagem por Conteúdo patrocinado Hoje à(s) 09:29


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