Bom dia, como fazer para que o código abaixo ao invés de aparecer a Input Box perguntando das quantidades busque em um formulário tais quantidades.
Function LabelSetup()
LabelBlanks% = Val(InputBox$("Entre com o nº de etiquetas já usadas." _
& vbCrLf & "As etiquetas usadas serão puladas.", "Imprime Etiqueta"))
LabelCopies% = Val(InputBox$("Entre com o nº de cópias a imprimir" & vbCrLf _
& "de cada etiqueta.", "Imprime Etiqueta"))
If LabelBlanks% < 0 Then LabelBlanks% = 0
If LabelCopies% < 1 Then LabelCopies% = 1
End Function
Desde já agradeço.
Function LabelSetup()
LabelBlanks% = Val(InputBox$("Entre com o nº de etiquetas já usadas." _
& vbCrLf & "As etiquetas usadas serão puladas.", "Imprime Etiqueta"))
LabelCopies% = Val(InputBox$("Entre com o nº de cópias a imprimir" & vbCrLf _
& "de cada etiqueta.", "Imprime Etiqueta"))
If LabelBlanks% < 0 Then LabelBlanks% = 0
If LabelCopies% < 1 Then LabelCopies% = 1
End Function
Desde já agradeço.