Screenshot and print a userform

Hello everybody,
This is my first question.
I would like to get images of a series of userforms and to paste each of them into a new worksheet in the active workbook, only through VBA code (no Commandbutton). To trigger the screen capture I added a extra textbox in my userform with a value which changes for each USF and is processed through a

Please Login or Register  to view this content.

procedure.
My problem is that if I write

Please Login or Register  to view this content.

without adding a zero the execution of the code stops when the USF pops up and if I add a zero a got a capture of my VBA code !
What do I wrong ?
Thank you in advance for any suggestion.
regards
Pierre

Good evening,
Additional information.
The code extract posted recently (Screenshot and print a userform) is part of the following
project:
1) To build a list of music composers mentioning the contribution of each of them to the
evolution of the musical language (e.g. Schoenberg with the dodecaphonic language),
2) add to each composer, if available, (the list of) his teachers or former composers which
influenced him with their contribution,
3) build a kind of a genealogical tree going from teachers to pupils and marking the way the
various features of the musical language "followed" down from the origins to todays' music
composers.
An intermediate step is the building of a collection of individual cards (like in a Kardex),
and it's the reason why I want to print userforms, each userform representing one composer
with first/last name, year of birth/death, land of activity, list of "teachers" (in a wide
sense) and of pupils, contribution to the musical evolution and/or inherited musical features
from predecessors.
Beginning around 1900 I'll have about 450 to 500 composers in my database and it's why I
need printing individual cards automatically instead of clicking 450 or 500 times on a button.
Many thanks for your help.
Best regards
Pierre

Hi !
Bump no response.
Greetings
Pierruel

Good evening,
Question asked on July 16th, no answer on July 22nd, I'll be asking elsewhere on the web and say thanks and good bye.
P.