Postada em 12/05/2009 14:32 hs
ola!! Estava com um problema semelhante; porem já consegui mandar para a impressora;
Quando você baixa o pacore da DLL ao descompactar vai encontrar uma pasta Lybrary onde estão as DLLs que vc deve copiar para c:windowssystem
em Example/VB_Test voce emcontra um projeto de exemplo em VB, veja o meu já adaptado;
Print A_CreatePrn(1, "outfile.prn")
Print A_Set_Darkness(10)
' numero do meu pedido
Print A_Prn_Text_TrueType(30, 75, 20, "Arial", 1, 20, 0, 0, 0, "A1", strPedido, 1)
'identificacao do paciente aqui no nosso hospital
Print A_Prn_Text_TrueType(30, 65, 20, "Arial", 1, 20, 0, 0, 0, "A2", strPaciente, 1)
'o commando para a impressora gerar o codigo de barras do pedido
Print A_Prn_Barcode(30, 30, 1, 65, 0, 0, 25, 98, 1, format(txtNR_PEDIDO.Text, "00000000"))
'imprime a direita do codigo de barras o numero que determina a prioridade do pedido
Print A_Prn_Text_TrueType(200, 25, 100, "Times New Roman", 1, 400, 0, 0, 0, "A3", txtPrioridade.Text, 1)
'texto abaixo do codigo de barras com o material usado
Print A_Prn_Text_TrueType(30, 20, 20, "Arial", 1, 20, 0, 0, 0, "A4", strMaterialMneumonico, 1)
'manda o comando para a impressora e com txtQTDE.TEXT digo quantas copias da etiqueta devem ser impressas
Print A_Print_Out(1, 1, txtQTDE.Text, 1)
Call A_ClosePrn
- tudo certinho e funcionando, só que, a impressora ainda fica dentro da impressora, para que eu possa pega-la tenho que avançar e assim sendo perdendo uma etiqueta.
- Preciso descobrir como comandar para que a impressora retorne com a etiqueta na impressao seguinte.
* espero ter ajudado e se vc quiser trocar algumas dicas estamos ai
|
