Dansk Regneark Forum
  Hjælp Hjælp  Søg i forum   Arrangementer   Opret ny bruger Opret ny bruger  Log ind Log ind


Emne lukketændring af VBA pdf kode
 Besvar Besvar
Forfatter
  Emne Søg Emne Søg  Emne funktioner Emne funktioner
mik1960 Se dropdown
Bronze bruger
Bronze bruger
Avatar

Medlem: 14.Feb.2012
Status: Offline
Point: 76 		Direkte link til dette indlæg Emne: ændring af VBA pdf kode
    Sendt: 12.Mar.2013 kl. 22:57
hejsa

kunne godt bruge en hjælpende hånd til denne kode,
1. jeg har 20 ark med næsten samme navn " forskellen de forreste tal 1-20"

kan man gøre noget eller er det bare at lægge den ind 20 gange, en til vær ark ??

 2. den linie jeg har markeret med rød, kunne man fortælle den at det er det ark man er i som skal udskrives ?? lidt forvirrende med den kode når man har 65 ark. 


ville være meget taknemlig hvis det var en som havde en ide.



Sub Tjekl1_Klik()
'
' Rektangel1_Klik Makro
' GemSomPdf Makro
' Gemmer logbogen som PDF fil
   Sheets("11_Tjek2013").Select
    Range("A1:af53").Select
    ActiveSheet.PageSetup.PrintArea = "$A$1:$AF$53"
    Sheets("11_Tjek2013").Select
Dim DataSti, Filnavn As String
DataSti = "C:\Maskiner\"
Filnavn = " Tjek2013 " & Range("G3").Text
'Tjekker om mappen 'DataSti' eksisterer, hvis ikke oprettes den
If Dir(DataSti, vbDirectory) = "" Then
    MkDir DataSti
End If

'Gemmer den aktive workbook som .pdf

ActiveWorkbook.ExportAsFixedFormat _
    Type:=xlTypePDF, _
    Filename:=DataSti & Filnavn, _
    Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, _
    From:=3, To:=3, _
    OpenAfterPublish:=False
MsgBox " Filen er gemt som "" Tjek2013 " & Range("G3") & ".pdf", vbInformation
End Sub

mvh
Michael
Glemmer altid at skrive hvad jeg bruger......Excel 2007 :-)
Til top



Til top
Allan Se dropdown
Forum Admin
Forum Admin
Avatar
Forum Admin

Medlem: 03.Feb.2010
Land: Danmark
Status: Offline
Point: 10330 		Direkte link til dette indlæg Sendt: 13.Mar.2013 kl. 10:55
Hej Michael,
 
Prøv dette
 
Fjern linjen
From:=3, To:=3, _
 
Og ændre linjen
ActiveWorkbook.ExportAsFixedFormat _
 
Til
ActiveSheet.ExportAsFixedFormat _
 
MVH

Allan
Excel-regneark.dk - Gratis skabeloner til Excel
Få over 120 ekstra funktioner med Danmarks bedste add-in
Til top
mik1960 Se dropdown
Bronze bruger
Bronze bruger
Avatar

Medlem: 14.Feb.2012
Status: Offline
Point: 76 		Direkte link til dette indlæg Sendt: 15.Mar.2013 kl. 08:42
Tak Allan

det hjalp lidt på det Tongue

men den vil altid hoppe til det ark som er nævnt i koden.

Sub Tjekl1_Klik()
'
' Rektangel1_Klik Makro
' GemSomPdf Makro
' Gemmer logbogen som PDF fil
   Sheets("11_Tjek2013").Select mener at det er de 2 steder det er galt, så den gemmer kun den som hedder 11_Tjek2013, var lidt ude på at den gemte det aktive ark. er jeg på 16_Tjek2013 så gemmer den 11_tjek2013.
    Range("A1:af53").Select
    ActiveSheet.PageSetup.PrintArea = "$A$1:$AF$53"
    Sheets("11_Tjek2013").Select
Dim DataSti, Filnavn As String
DataSti = "C:\Maskiner\"
Filnavn = " Tjek2013 " & Range("G3").Text kunne man tilføje en stump her så dags dato var med i filnavnet, evt. kunne jeg lave ark navnene om til kun evt. 12_tjek og den kun tog Tjek med i gem, så der stod "Tjek 15_03_13 john deere 1600"
'Tjekker om mappen 'DataSti' eksisterer, hvis ikke oprettes den

If Dir(DataSti, vbDirectory) = "" Then
    MkDir DataSti
End If

mvh
Michael
Glemmer altid at skrive hvad jeg bruger......Excel 2007 :-)
Til top
Allan Se dropdown
Forum Admin
Forum Admin
Avatar
Forum Admin

Medlem: 03.Feb.2010
Land: Danmark
Status: Offline
Point: 10330 		Direkte link til dette indlæg Sendt: 15.Mar.2013 kl. 10:08
Hej igen,
 
Et skud fra hoften, men jeg prøver alligevel.
Denne makro gemmer det aktive ark som: Tjek dd_mm_åååå arknavn G3.text.pdf
Jeg ved ikke hvad der står i G3, men det indgår i dit filnavn og således også i mit. 
 
Sub Tjekl1_Klik()
' GemSomPdf Makro
' Gemmer logbogen som PDF fil
ActiveSheet.PageSetup.PrintArea = "$A$1:$AF$53"
Dim DataSti, Filnavn As String
DataSti = "C:\Maskiner\"
Filnavn = "Tjek " & Month(Now) & "_" & Day(Now) & "_" & Year(Now) & " " & ActiveSheet.Name & " " & Range("G3").Text
'Tjekker om mappen 'DataSti' eksisterer, hvis ikke oprettes den
If Dir(DataSti, vbDirectory) = "" Then
    MkDir DataSti
End If
'Gemmer den aktive workbook som .pdf
ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=DataSti & Filnavn, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
MsgBox " Filen er gemt som " & Filnavn & Range("G3") & ".pdf", vbInformation
End Sub
MVH

Allan
Excel-regneark.dk - Gratis skabeloner til Excel
Få over 120 ekstra funktioner med Danmarks bedste add-in
Til top
mik1960 Se dropdown
Bronze bruger
Bronze bruger
Avatar

Medlem: 14.Feb.2012
Status: Offline
Point: 76 		Direkte link til dette indlæg Sendt: 16.Mar.2013 kl. 16:30
tak skal du Allan

efter en lille tilpasning kom det til at virke fint Tongue filnavnet blev lige langt nokTongue "C3" er navnet på maskinen.

mange tak for hjælpen

Mvh

Michael
Glemmer altid at skrive hvad jeg bruger......Excel 2007 :-)
Til top
 Besvar Besvar

Skift forum Forum tilladelser Se dropdown

© 2010 - 2024 Dansk Regneark Forum - en del af Excel-regneark.dk