MSCBPrinter

Impressão Térmica

Exemplo da Rotina:

MSCBPrinter()

Exemplo 1- Gera uma etiqueta de 80mm de largura:

//Variáveis de controle
cPorta     := "LPT1"
nQtdCopias := 1
nVolIniPvt := 1
nVolFimPvt := 1

//Cria a etiqueta com configuração de etiqueta de 80mm
MSCBPrinter("S600", cPorta, , , .F.)
MSCBChkStatus(.F.) //Alguns modelos exigem esse comando
MSCBInfoEti("ETIQUETA", "ROTULO")
MSCBBegin(nQtdCopias, 6, 81) //Qtde de copias, velocidade (1 a 6) e tamanho da etiqueta em mm
MSCBBox(02, 03, 98, 78, 3)
   
//Dados da Empresa com linha de separação
MSCBSay(005, 006, "Remet.: ",                           "N", "0", "029, 036")
MSCBSay(026, 006, "Nome da Empresa",                    "N", "0", "043, 053", .F.)
MSCBSay(005, 013, "Rua Teste 123, Fone: 014 0000-1111", "N", "0", "024, 034")
MSCBSay(023, 017, "CEP 17000-111, Bauru-SP",            "N", "0", "024, 034")
MSCBLineH(02, 21, 98, 3)

//Dados do Cliente com linha de separação
MSCBSay(005, 022, "Codigo: " + SC5->C5_CLIENTE,                                             "N", "0", "029, 036")
MSCBSay(005, 026, "Cliente: " + SubStr(SA1->A1_NOME, 1, 40),                                "N", "0", "029, 036")
MSCBSay(005, 030, "End.: " + Alltrim(SA1->A1_END),                                          "N", "0", "024, 034")
MSCBSay(005, 034, "Bairro: " + Alltrim(SA1->A1_BAIRRO) + "   CEP: " + Alltrim(SA1->A1_CEP), "N", "0", "029, 036")
MSCBSay(005, 038, "Cidade: " + Alltrim(SA1->A1_MUN) + "   UF: " + Alltrim(SA1->A1_EST),     "N", "0", "026, 036")
MSCBSay(005, 042, "Telefone: (" + Alltrim(SA1->A1_DDD) +  ") " + Alltrim(SA1->A1_TEL),      "N", "0", "029, 036")
MSCBLineH(02, 46, 98, 3)

//Dados da Transportadora com linha de separação
MSCBSay(005, 048, "Transp.: " + Alltrim(SA4->A4_NOME),                                                 "N", "0", "029, 036")
MSCBSay(005, 052, "Munic.:  " + Alltrim(SA4->A4_MUN),                                                  "N", "0", "021, 031")
MSCBSay(005, 056, "Redesp.: " + SubStr(SA4->A4_NOME, 1, 20) + " (" + SA4->A4_DDD + ") " + SA4->A4_TEL, "N", "0", "021, 031")
MSCBSay(005, 060, Alltrim(SA4->A4_END),                                                                "N", "0", "021, 031")
MSCBSay(005, 064, "Munic.: " + AllTrim(SubStr(SA4->A4_MUN, 1, 20)) + "/" + SA4->A4_EST,                "N", "0", "021, 031")
MSCBLineH(02, 68, 98, 3)

//Dados da NF
MSCBSay(005, 069, "Nota Fiscal: " + SC5->C5_NOTA,                                      "N", "0", "024, 034")
MSCBSay(005, 069, "Pedido n.: " + Alltrim(SC5->C5_NUM) + " (Consta no DANFe)",         "N", "0", "024, 034")
MSCBSay(037, 073, cValToChar(SC5->C5_VOLUME1) + " " + Upper(Alltrim(SC5->C5_ESPECI1)), "N", "0", "043, 053")
MSCBSay(005, 073, "Volume: " + cValToChar(nVolIniPvt) + "/" + cValToChar(nVolFimPvt),  "N", "0", "024, 034")

//Finaliza a etiqueta
MSCBEnd()
MSCBClosePrinter()

Observações:

  • Caso tenha dúvidas ou problemas com os exemplos, entre em contato;
  • Se tiver sugestões de rotinas, pode entrar em contato;
Receba novidades

Seja VIP e receba novidades exclusivas por e-Mail gratuitamente.

Junte-se a 4.310 outros assinantes