Trouble with VBA driven screenshot

[leurp]

Good morning (in W. Europe )
I’m working with a scripting dictionary composed with instances of a custom class of mine and of course it can’t be registered. My solution in order to keep the relative data is to write my instances’ information into an userform, make a screen capture of the usf and paste it into a dedicated workbook. I have in a standard module the code opening my userform (fiche_ind, sorry, names are in French) and in the usf module the code for the screen capture (please see below): The problem ist that after the instruction opening the userform nothing else occurs: the evenemential sub doesn’t start. I tried to have the whole code in the standard module but then the prtscr captured the code page !

 'ouvre le classeur d'images =opens the img workbook
        Workbooks("images_compos.xlsx").Activate
        ActiveWorkbook.ActiveSheet.Name = NomComplet
        fiche_ind.Show   ' a userform

The userform code

Private Sub fiche_ind_Initialize()
Dim Ws As Worksheet
Dim legende As String
Dim photo As Object
SendKeys (PRTSC)
        Workbooks("images_compos.xlsx").Activate
        ActiveWorkbook.ActiveSheet.Name = NomComplet
            With ActiveSheet.PageSetup
                '...
            End With
            With ActiveSheet
                With New DataObject
                .GetFromClipboard
                End With
            .Cells(1, 1).value = legende
            .Range(Cells(2, 1), Cells(25, 11)).Select
            End With
        ActiveSheet.Paste
        ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

Thank you for any help or explanation.
Regards
Pierre

 

[RoryA]

Welcome to the forum.

It’s always Userform_Initialize no matter what the name of the form is.

 

[leurp]

Thank you very much RoryA,
Regards
P. alias leurp

 

[leurp]

Good morning Rory,

Welcome to the forum.

It’s always Userform_Initialize no matter what the name of the form is.

It works fine, thank you, but there's another issue. Apparently the Sendkeys (PRTSC) instruction doesn't trigger anything because at the end my "PrintOut" instruction prints the last "copy-paste" I've made before working with Excel instead of a picture of my userform or anything else in Excel.
What's wrong in my code ?
Thank you for any help.
Regards
Leurp

 

[RoryA]

It's actually:

SendKeys "{PRTSC}"

but it's not particularly reliable. I'd suggest you use API calls as shown here: https://wordmvp.com/FAQs/MacrosVBA/PrtSc.htm

 

[leurp]

Thanks Rory,
I'll be happy to folllow the example of "serious developers" although I'm just an amateur.
have a fine day
P.

 

[leurp]

Good afternoon,
Sorry but I'm still stuck with my automated screen capture. I went there: https://www.mrexcel.com/forum/redirect-to/?redirect=https://wordmvp.com/FAQs/MacrosVBA/PrtSc.htm and tried first the version "to capture the active window" and it worked apparently well but each time I got a print out of my code page ! I tried then with "to capture the screen" and it didn't work at all. After the lines

Private Declare PtrSafe Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal _
  bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long

I get the msg (I translate approximately)

only comments can appear after End Sub, End Functin or End Property

but I can't see any "End" anything causing the error.
Can anybody explain ?
Many thanks in advance.
Best regards
Pierre alias leurp

 

[RoryA]

The declaration has to be at the top of the code module, before any procedures.