Hi, I have written below little procedure. I noticed that when I have a lot
of data to be recalculated the save-command starts before the calculate has
finished making my pdf-files incorrect. Is there any line I can add to solve
this?

By the way - automatic calc is turned off the the workbook.

Many thanks in advance,
Sverre

Sub PrintAllPortfoliosToFile()
'
' PrintAllPortfoliosToFile Macro
'
'Ändra namn på filen (och katalogen)

Dim portfolio As String
'
For Row = 2 To 21
portfolio = CStr(Cells(Row, 17))
Cells(2, 2) = portfolio
Calculate
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Documents and
Settings\sverker\Desktop\Analys och uppföljning\PDF-rapporter\Uppföljning
20090228_" + portfolio + ".pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True,
IgnorePrintAreas:=False, OpenAfterPublish:=False
Next Row

'
End Sub

Untested but 2 things to try.

OnTime method. Check it out in Help. (Try this one first)

Wait method. Also check out in Help for what it does.

I suggest that you place the printing code in a sub of its own and try the
above after the Calculate code to try to force the system to stall for
whatever number of seconds you think it takes for the Calculate to finish and
then on the next line Call the printing sub.

i will be interested to know if it works.
--
Regards,

OssieMac


"sverre" wrote:

> Hi, I have written below little procedure. I noticed that when I have a lot
> of data to be recalculated the save-command starts before the calculate has
> finished making my pdf-files incorrect. Is there any line I can add to solve
> this?
>
> By the way - automatic calc is turned off the the workbook.
>
> Many thanks in advance,
> Sverre
>
> Sub PrintAllPortfoliosToFile()
> '
> ' PrintAllPortfoliosToFile Macro
> '
> 'Ändra namn på filen (och katalogen)
>
> Dim portfolio As String
> '
> For Row = 2 To 21
> portfolio = CStr(Cells(Row, 17))
> Cells(2, 2) = portfolio
> Calculate
> ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Documents and
> Settings\sverker\Desktop\Analys och uppföljning\PDF-rapporter\Uppföljning
> 20090228_" + portfolio + ".pdf" _
> , Quality:=xlQualityStandard, IncludeDocProperties:=True,
> IgnorePrintAreas:=False, OpenAfterPublish:=False
> Next Row
>
> '
> End Sub
>

I'm not exactly sure how to guarantee that Excel finishes the calculation
before saving, but you can pause the Macro before the code sequence
continues.

Try something like this:
Application.Wait Now + TimeValue("00:00:10")

Also, shouldn't those "+" symbols be "&" symbols?


--
RyGuy


"sverre" wrote:

> Hi, I have written below little procedure. I noticed that when I have a lot
> of data to be recalculated the save-command starts before the calculate has
> finished making my pdf-files incorrect. Is there any line I can add to solve
> this?
>
> By the way - automatic calc is turned off the the workbook.
>
> Many thanks in advance,
> Sverre
>
> Sub PrintAllPortfoliosToFile()
> '
> ' PrintAllPortfoliosToFile Macro
> '
> 'Ändra namn på filen (och katalogen)
>
> Dim portfolio As String
> '
> For Row = 2 To 21
> portfolio = CStr(Cells(Row, 17))
> Cells(2, 2) = portfolio
> Calculate
> ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Documents and
> Settings\sverker\Desktop\Analys och uppföljning\PDF-rapporter\Uppföljning
> 20090228_" + portfolio + ".pdf" _
> , Quality:=xlQualityStandard, IncludeDocProperties:=True,
> IgnorePrintAreas:=False, OpenAfterPublish:=False
> Next Row
>
> '
> End Sub
>