Saludos Profesor Sergio, de ante mano gracias por responder, realice lo que me sugirió coloque el código donde me indicó, sin embargo me sigue arrojando el mismo error.
' Restaurar formato de fuente
With wsHistorico.Rows("2:2").Font
.ColorIndex = xlAutomatic
.TintAndShade = 0
End With
' Incrementar automáticamente el número de recibo
wsRecibo.Range("J2").Value = wsRecibo.Range("J2").Value + 1
'Corrección de Error en impresión
Application.Wait (Now + TimeValue("0:00:01"))
' Imprimir
wsRecibo.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
Por
dorgelis, · publicado
Hola a todos!!
Tengo un problema con la siguiente macro:
Código:
Sub Correo()
strReportName = "C:\Users\xxx\Documents\Pedidos nacional\Pedido Norte Chico&FechaHora&. Pdf.pdf"
Dim objOutlook As Object
Dim objMail As Object
Dim objOutlookAttach As Object
Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(olMailItem)
Set objOutlookAttach = objOutlook.CreateItem(olAttachMents)
With objMail
.To = "xxx@xxxx.com.pe"
.Subject = "Pedidos"
.Body = ""
.Attachments.Add (strReportName)
.Send
End With
Set objMail = Nothing
Set objOutlook = Nothing
End Sub
Como el archivo esta guardado con HORA Y FECHA no reconoce al archivo para que pueda enviarlo por correo.
Hay alguna manera de llamar al último archivo guardado en esa carpeta para que se envie por correo?
Por favor ayudenme, que tengo que entregar este archivo esta semana y me estoy volviendo loca.
Muchas Gracias!!!