[Resolvido]Imprimir relatorio especifico

Bom dia!
Estou com a seguinte duvida, gostaria de saber como posso criar um botao que ao clicar imprima sempre o ultimo registro incluso no banco de dados. Estou tentao usar o codigo abaixo, porem ele apenas me aponta o ultimo registro, eu gostaria de imprimir direto quando clicar no botao a ultima etiqueta com o ultimo dado cadastrado no banco.

Atualmente estou usando o codigo abaixo.

Private Sub btprint_Click()


DoEvents

DoCmd.OpenReport "Etiquetas tb_cadastro3", acViewPreview
SendKeys "{End}", True
DoEvents

relatorio = "Etiquetas tb_cadastro3"
'resp = MsgBox("Deseja visualizar relatorio antes da impressao", vbQuestion + vbYesNo, "ATENÇAO")
'If resp = vbYes Then
' DoCmd.OpenReport relatorio, acViewPreview 'faz ver o relatorio'
'Else
DoCmd.PrintOut acPages, relatorio, acLast 'imprima o relatorio'
'End If
End Sub

Apos algumas tentativas consegue focar o ultimo relatorio com o codigo abaixo.

Private Sub btprint_Click()

relatorio = "Etiquetas tb_cadastro3"
DoEvents
DoCmd.OpenReport relatorio, acViewPreview
SendKeys "{End}", True
DoEvents
End Sub

Porem gostaria de imprimir direto o ultimo registro. Por exemplo:

Tenho 100 nomes no banco de dados, quando vou ver o relatorio ele me mostra os 100, gostaria de imprimir sempre o ultimo. Um botao para imprimir sempre o ultimo cadastro.

Bom dia!

Consegui chegar no codigo que queria usando um parecido com esse abaixo.


Dim strRelatorio As Report
Dim strPagina As Integer

Set strRelatorio = Screen.ActiveReport
strPagina = Screen.ActiveReport.Page

DoCmd.SelectObject acReport, strRelatorio.Name, True
DoCmd.PrintOut acPages, strPagina, strPagina, , 1

DoCmd.SelectObject acReport, strRelatorio.Name, False