| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
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 |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
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 |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
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 - |
|
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
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 - |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Making all past dates bold, looping | Excel Programming | |||
| Looping...but why? | Excel Programming | |||
| Help with Looping I think | Excel Programming | |||
| Looping | Excel Programming | |||
| Looping | Excel Programming | |||
Linear Mode
