Imprimir células selecionadas de uma planilha em VBA? Fechado

Question

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.

usuário anônimo · Answer

Dê uma olhada nesta página
https://br.ccm.net/s/VBA

Imprimir células selecionadas de uma planilha em VBA?

1 Respostas

Conversas semelhantes

Assine nossa newsletter!