Looping and pdf-making
 

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

Looping and pdf-making
 

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

On Apr 21, 10:33*am, Mia wrote:
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

Looping and pdf-making
 

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



" wrote:

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

On Apr 21, 10:33 am, Mia wrote:
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

Looping and pdf-making
 

Hi Mia

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

Hopes this helps.

---
Per

On 21 Apr., 15:53, Mia wrote:
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



" wrote:
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

On Apr 21, 10:33 am, Mia wrote:
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- Skjul tekst i anførselstegn -

- Vis tekst i anførselstegn -

Looping and pdf-making
 

Hi Per

You solved it, it works perfect!

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

//
Mia


"Per Jessen" wrote:

Hi Mia

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

Hopes this helps.

---
Per

On 21 Apr., 15:53, Mia wrote:
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



" wrote:
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

On Apr 21, 10:33 am, Mia wrote:
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- Skjul tekst i anførselstegn -

- Vis tekst i anførselstegn -