€ŒRUNTIME ERROR 380: INVALID PROPERTY VALUE€
Olá amigos!
Estou com esse erro em um cliente, aqui para mim tá normal, alguém sabe como resolver.
Estou com esse erro em um cliente, aqui para mim tá normal, alguém sabe como resolver.
Olá,
O Erro acontece devido essa linha abaixo
If Printer.PaperSize <> 200 Then
Printer.PaperSize = 200
End If
Se eu não devinir como 200 meu código de barras não sai na direita onde deve, se eu coloca dá erro no cliente.
O Erro acontece devido essa linha abaixo
If Printer.PaperSize <> 200 Then
Printer.PaperSize = 200
End If
Se eu não devinir como 200 meu código de barras não sai na direita onde deve, se eu coloca dá erro no cliente.
Comando do código de barras abaixo:
[ô]etiqueta 1
Printer.FontName = [Ô]Bar-Code 39[Ô]
Printer.FontSize = 12
Printer.CurrentX = 2050
Printer.CurrentY = 50
Printer.Print [Ô]*[Ô] & [Ô]7898360210015[Ô] & [Ô]*[Ô]
Se eu tirar o PaperSize 200 ele não imprime o código de barras Printer.CurrentX = 2050, se eu diminuir para 1000 por exemplo ele imprime no meio da etiqueta.
[ô]etiqueta 1
Printer.FontName = [Ô]Bar-Code 39[Ô]
Printer.FontSize = 12
Printer.CurrentX = 2050
Printer.CurrentY = 50
Printer.Print [Ô]*[Ô] & [Ô]7898360210015[Ô] & [Ô]*[Ô]
Se eu tirar o PaperSize 200 ele não imprime o código de barras Printer.CurrentX = 2050, se eu diminuir para 1000 por exemplo ele imprime no meio da etiqueta.
Tópico encerrado , respostas não são mais permitidas