[Resolvido]Passar dados de um formulário para outro com VBA populando o select

Queridos,
Estou precisando de ajuda, pois preciso passar dados de um form para outro usando VBA, mas não estou conseguindo.
Ao clicar em abrir no frmPrincipal a palavra "Recibo" será passada para o printDefault, então será preenchido o título do form e select será populado com os dados vindos da consultaComprovante.

Envio o exemplo em anexo e agradeço, Luz e Paz!

Bom dia
Tem alguns temas que não deu seguimento. Dar continuidade é uma forma de agradecimento/reconhecimento pelo contributo dos colegas (que ajudaram e que procuram ajuda) e é essa a finalidade do fórum

Olá Alexandre, eu não compreendi!
Fiz algo de errado no fórum? Poderia me explicar, por favor, para que eu possa me retratar?
O Office que utilizo é o 2016.
Será o que você quis dizer com "Temas"? As vezes uma palavra muda todo o contexto de uma frase de um país para o outro...
Será que meus forms não estão "bonitinhos"...?
Vou postar uma imagem da configuração do Windows para exemplificar o que é "Tema" para mim.

Temas é o que, em inglês, se designam posts
Alguns seus ainda abertos:
https://www.maximoaccess.com/t9702-nota-compactar-e-reparar-access-2003#77544
https://www.maximoaccess.com/t9333-botoes-minimizar-restaurar#77283
https://www.maximoaccess.com/t9582-formatacao-do-textbox-por-vb#76529
https://www.maximoaccess.com/t9582-formatacao-do-textbox-por-vb#77944
https://www.maximoaccess.com/t9864-vbs-x-vba-compactando-front-end-por-vbs#78802
https://www.maximoaccess.com/t9926-criterio-para-combox-para-formulario-access-2003#79300
https://www.maximoaccess.com/t18658-excluir-imprimir-mostrar-somente-codigos-digitados-pelo-usuario#138265
https://www.maximoaccess.com/t18916-select-em-consulta#141257
https://www.maximoaccess.com/t19062-form-janela-de-impressao-com-duplex#141484
https://www.maximoaccess.com/t19063-texto-de-botoes-de-mensagem#141486
https://www.maximoaccess.com/t19062-form-janela-de-impressao-com-duplex#141518
https://www.maximoaccess.com/t19403-criar-diretorio-em-documentos-do-windows-7-atraves-do-vba#143666
https://www.maximoaccess.com/t19437-excluir-formulario-com-vba-access-2010#143893
https://www.maximoaccess.com/t19494-listar-comparar-e-extrair-dados-de-tabela-via-vba-no-access-2007-2010#144356
https://www.maximoaccess.com/t19943-texto-padrao-da-tabela-para-um-campo-nao-acoplado-em-vba#147410
https://www.maximoaccess.com/t21174-contar-dados-que-se-repetem-por-mes-em-vba-access-2010#154743
https://www.maximoaccess.com/t22230-criar-nova-cx-de-combinacao-ao-escolher-dados-em-outra-cx-de-combinacao#161741
https://www.maximoaccess.com/t22486-repetindo-dados-apos-atualizar-subform#164895
https://www.maximoaccess.com/t32407-como-compactar-reparar-um-banco-de-dados-aberto-no-access-2013-com-vba#223052
https://www.maximoaccess.com/t34589-selecao-de-notas-pela-soma-delas-e-por-maior-periodo#236933

Desculpe-me!
Eu sempre me esquecia do "escondidinho" do botão "Resolvido" rsrs.
Respondi e fechei todos, mas tinha um aí "nesses links" que não era meu...
Perdão sobre o "embaraço" no uso da palavra "temas"... rsrs, mas no Brasil posts é: postagens
Correto: O tema do meu post é: Passar dados de um formulário para outro com VBA populando o select

O problema era o rápido carregamento do printDefault antes do controle recText ser preenchido, então coloquei um timer (Me.TimerInterval = 400), resolvendo assim:

Criei um controle a mais, chamado: stopTimer, e:

Private Sub Form_Load()
On Error Resume Next
DoCmd.SetWarnings False

Me.TimerInterval = 400
Me.stopTimer = ""
Me.recText = ""
Me.txtTitulo = ""
Me.recCod = ""

End Sub


Function execOrigem()
On Error Resume Next
DoCmd.SetWarnings False

Dim textoForm As String

If Me.recText = "Recibo" Then
Me.txtTitulo = "Recibo para cliente"
textoForm = "Recebido"
Me.combData.RowSource = "SELECT DISTINCT ConsultaComprovante.Código FROM ConsultaComprovante WHERE [Situação]= '" & textoForm & "' ORDER BY [ConsultaComprovante.Código]"
Me.stopTimer = "1"
Exit Function
End If

End Function

Private Sub Form_Timer()
'Para parar o timer

If IsNull(Me.stopTimer) Or Me.stopTimer = "" Then
Call execOrigem
Exit Sub
End If

End Sub