nueva macro segun pdf

17/01/2006 - 09:20 por Ralf | Informe spam

Disculpa esto sería cuando genera documentos pdf
para los dias 13 y 21

Lo que observo es que no se me graba en la macro donde se guarda le pdf y el
nombre que le he dado...que seria 13a.pdf y 21a.pdf. en la unidad C:\Mis
Documentos\

¿como solventar esto?,

¿me podeis ayudar?

Sub kl()
'
' kl Macro
'

'
Range("C1").Select
ActiveCell.FormulaR1C1 = "13"
Range("C2").Select
Application.Goto Reference:="Print_Area"
Application.ActivePrinter = "PDF995 en Ne00:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"PDF995 en Ne00:", Collate:=True
ActiveWindow.LargeScroll Down:=-1
Range("C1").Select
ActiveCell.FormulaR1C1 = "21"
Range("C2").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

Siga el debate

1 respuesta

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#1 KL

22/01/2006 - 15:06 | Informe spam

Hola Ralf,

Perdona que insista, pero tienes que dejar de crear nuevos hilos con la misma pregunta y procurar de mantener solo una conversacion
y no cuatro como lo haces ahora. Tienes que colgar tus mensajes de seguimiento debajo de tu consulta original. Para ello primero
habres el mensaje del que quieres colgar tu nuevo mensaje y usar la opcion responder. Fijate que ya te he respondido 2 veces (cada
vez a una consulta nueva) y no me has hecho ni caso ;-)

Repecto a tu consulta, prueba el codigo que te pongo a continuacion.
Saludos,
KL

Sub Test()
Dim i As Long
For i = 1 To 31
Selection.Copy
With Workbooks("RESUMENMES.XLS").Sheets("PROFORMA")
.Range("C1") = Workbooks("DIAS.XLS") _
.Sheets(1).Cells(i + 1, "A")
.Range("Print_Area").PrintOut _
ActivePrinter:= "PDF995 en Ne00:", _
PrintToFile:= True, _
PrToFileName:= Environ("userprofile") & "\Mis Documentos\" & i & "a.pdf"
End With
Next i
End Sub

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida