[Resolvido]Gerar dados aleatórios

Preciso gerar um código aleatório com 8 (OITO) caracteres em caixa alta (cupom).

A dúvida em si, é sobre como gerar esse código.

Peguei o código aqui no fórum, mas não me recordo de quem, por isso, não há citação da fonte. Desculpem-me por esse lapso!!

Além disso, como imprimir o relatório para uma impressora específica?
Ocorre que tenho duas impressoras (Print_01 e Print_02), com configuraçãos de papel bem diferentes, e preciso imprimir esses cupons na Print_02.

Sei que são dúvidas distintas, mas o reltório será gerado com o cupom gerado, por isso deixo essa questão aqui também!
Já vi um tópico, sobre isso, como [Resolvido], no fórum ,mas não entendi nada do código apresentado!

O restante, acredito eu, será resolvido após eu conseguir gerar os dados aleatórios, pois preciso deles para executar orestante dos códigos.

--------------

Depois de gerar o código, preciso acresentá-lo em uma tabela, junto com a data da criação (criação) e data de validade (validade).
(Em relação às datas, não há dúvidas de minha parte!)
(Creio que não haja problemas com esse código, mas como não consegui gerar o cupom, não o executei!)

Após a atualização da tabela, necessito imprimir um relatório com o cupom gerado.
(Em relação ao relatório -gerar- , não tenho dificuldade.)

Alguém pode me ajudar com essas dúvidas?

A tabela a ser atualizada é a tbl_cupom.

O formulário usado para gerar o cupom é o frm_cupom.

O relatório ainda não existe, mas não é necessário agora. Posso criá-lo depois.


Grato!!!

Teste ai, substitua o seu codigo por este
no seu codigo a campos que nao existe no formulario, de uma conferida.


On Error GoTo trata_erro

'Esse é o código que peguei no fórum (alterei alguma coisa), mas não me recordo de quem!!

Dim strPK As String
Dim nMax As Integer, nMin As Integer
Dim i As Integer, x As Integer



nMin = 65: nMax = 90

Me.lstDados = Empty
Me.lstDados.Requery

'For x = 1 To Me.txtqtde
For x = 1 To 8
strPK = Empty
For i = 1 To 8
strPK = strPK & Chr(Int((nMax - nMin + 1) * Rnd + nMin))
Next i
Randomize: strPK = strPK


lstDados = strPK
lstDados.Requery

Next x

Exit Sub

trata_erro:
MsgBox "Erro gerado: " & Err.Number & " - " & Err.Description & "", vbCritical, "Erro"
Exit Sub

Scandinavo,

obrigado, funcionou aqui!!!

Marcarei como resolvido, e abrirei outro tópico sobre a duvida quanto a impressão!

Grato!!!!

Valeu pelo retorno