excel run-time error -2147024773 (8007007b) and beforeprint event

Good day I'm having the same troubles that this post (https://www.excelforum.com/excel-pro...-8007007b.html), I understand that the format date can't be used with range and VBA, but there is other way to use the content of the cell in that format?

I'm using this code...

Sub Boton1_Haga_click_en()



nombreLibro = Range("H4")
Ruta = "D:\Users\MXQUEJEN\Desktop\"

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, filename:= _
Ruta & nombreLibro & ".pdf", Quality:=xlQualityStandar, IncludeDocProperties:= _
True, IgnorePrintAreas:=False, OpenAfterPublish:=True

End Sub

I want to save a PDF document with the name of the cell in this case H4 with a format in a custom format mdyyhmms... but H4 have a copy of H3 that have the formula =NOW(). And I want the name of the PDF file is the date in date format. All this I want to included in a beforprint event.. is this possible?

davesexcel

Thanks, thant's what I need but just one other think...

The format that I need is not MM-DD-YY is month day year hour minutes seconds like this m dd yy h mm s... I'm trying to set this but now the erros is Can't execute code in breake mode

davesexcel

Sorry. I have found that the code was still running... And I solved the problem just adding (MM-DD-YY-h-mm-ss)

Thanks, for your help.

Now... I want this macro runs when I send to print the file...

I set this Marco into "ThisWorkbook"

Please Login or Register  to view this content.

But now it says "Compile error: Sub or Function not defined"

Does this code BeforPrint must be in the same Macro?