Imprimir células selecionadas de uma planilha em VBA?

Fechado
clemendes Posts 5 Data de inscrição sábado 13 de setembro de 2014 Status Membro Última visita 14 de setembro de 2014 - 13 set 2014 às 17:56
 usuário anônimo - 14 set 2014 às 13:37
Olá a todos,

Alguém poderia me ajudar com um problema que estou tendo ao tentar imprimir uma seleção de uma planilha já definida como área de impressão (a seleção é uma etiqueta com vários campos e um deles é código de barras), na impressora Zdesigner TLP 2844?

Funciona assim, tenho uma planilha de A1 até F7 (A1:F7) que é minha etiqueta, o usuário preenche somente o campo código do material, e então os demais campos como descrição, fornecedor, são preenchidos automaticamente pela função procv, depois de preencher o código do material e a quantidade, no campo "G2" da planilha, o usuário digita a quantidade de cópias que ele quer imprimir daquela etiqueta, e então clica em um command button "imprimir" com o seguinte código abaixo:

Dim copias As String

copias = Range("G2").Value

If MsgBox("Confirma Impressão do Arquivo? ", vbYesNo, "Aviso!") = vbYes Then

Sheets("ETIQUETA").Select
Range("A1:F7").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=copias

End If

End Sub



OBS: Ele imprime na impressora configurada como padrão.

Nas impressoras normais até funciona, mas gostaria de saber como imprimir em uma impressora Zdesginer TLP 2844, aquelas de impressão de rolos de etiquetas.

Essa impressora não imprime nada do Excel, o arquivo vai pra fila porém qualquer documento feito no Excel ela não imprime. Não sei se é configuração dela a porta dela é aquelas serial LPT1.

E ainda, gostaria de saber como transformar o campo "A6" da minha planilha que é uma formula "=A2" ou seja, o material que o usuário digitou no começo, em um código de barras. (Tentei fazer isso com varias fontes baixada da internet, porém o coletor não conseguiu ler, imprimi o teste em uma folha A4, não sei se isso interfere em alguma coisa).

Se alguém souber algum código em VBA que transforme um código digitado na célula "A2" para a célula "A6" em código de barras (o código sempre seguirá esse critério -> XXXX.XXXX onde x = números, ou seja 4 numeros + ponto + 4 numeros, exemplo 1234.0010 ).



Qualquer ajuda é bem vinda.



Grato a todos.



ANEXO UMA IMAGEM PARA MELHOR COMPREENSÃO DA PLANILHA.

1 Respostas

usuário anônimo
14 set 2014 às 13:37
Dê uma olhada nesta página
https://br.ccm.net/s/VBA

Assine nossa newsletter!

Assine nossa newsletter!
Junte-se à comunidade