Looping and pdf-making

[Mia]

Hello,

I´m trying to make a looping code when I´m makin a pdf-file.
I can´t get i ringt, do anyone know whats wrong with my code bellow?
I´l be so grateful!

BR
Mia


Sub Skrivabevis2009pdf()
'
' Skriv Makro
' Makrot inspelat 2009-04-21 av Mia


Dim Start As Integer
Dim Stopp As Integer
Dim SkrivUt As String
Sheets("Uppföljning").Select
Start = Range("C7").Value
Stopp = Range("C8").Value


For i = Start To Stopp
Sheets("Kunddata").Select
Range("D9").Value = i
SkrivUt = Range("G9").Value
If SkrivUt = "S" Then

Dim Prewiev As String
Dim FilenameStr As String

If Dir(Environ("commonprogramfiles") & "\Microsoft Shared\OFFICE" _
& Format(Val(Application.Version), "00") & "\EXP_PDF.DLL") <> "" Then

FilenameStr = "M:\mo\S\bevis\" & _
ActiveSheet.Range("B10").Value & " " & Format(Now, "yyyy-mm-dd") &
".pdf"

Prewiev = "False"

Sheets("Uppföljning").Select
Sheets("Årsförnyelse 2009").Select

ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=FilenameStr, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=Prewiev



Sheets("Uppföljning").Select

End If

Next
Sheets("Uppföljning").Select

End Sub

 

[paul.robinson]

Hi

Q1: What is the code supposed to do?
Q2: What DOES the code do?
Q3: Does the code create errors or just not do what you expect? If
errors, what are they? Is any line highlighted?

I doubt anyone will look at your code without some of this information
regards
Paul

 

[Mia]

Thank you for your answer!

Q1 = I´m writing the same dokument from a list of persons, but only those
who have accepted.
Q2= So far, it does not do anything. If you want I can show you the code
that works for printing.
Q3=Komplimeringsfel - Next without for.

It´s not easy for me to try to explain in english, I hope you can understand
some.


//
Mia

 

[Per Jessen]

Hi Mia

You are missing an End If statement, to be placed somewhere before the
"Next" statement.

Hopes this helps.

 

[Mia]

Hi Per

You solved it, it works perfect!

Thank you so mutch!!! I´m wery grateful!

//
Mia