CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

TheresaD Juniormester

01. juni 2018 - 11:02 Der er 3 kommentarer

Print område

Hej jeg har et regneark, med 50 faner (afd1, afd.2 osv)

Disse faner henter data fra andre regneark og mængden af data afviger fra periode til periode.

Jeg vil gerne have at den gemme de 50 faner som en PDF fil og det er her problemet opstår.

For hver fane har formler fra række 1 til 1000. Hvis den ikke kan finde data i formlen, så udfylder den cellen blankt. Men når den printer til PDF, så printer den alle 1000 rækker, men den skulle kun printe fra række 1 til den række som er sidst med vist data.

Det skal være en automatisk formel, som retter print området, da det vil tage for lang tid manuelt at skulle rette udskriftsområde hver uge for alle fanerne.

Håber der er en som kan give nogle gode råd :)

Vh
Theresa

Synes godt om

finb Ekspert

01. juni 2018 - 11:18 #1

Hvis der ikke er helt tomme rækker,
kan du bruge
set printOmraade = activeCell.CurrentRegion

Synes godt om

1 synes godt om dette

TheresaD Juniormester

01. juni 2018 - 11:37 #2

Jeg har prøvet at indsætte det i min makro. Men den printer desværre stadig over 70 blanke sider.

Sub PDF()
'
' PDF Makro
'
Set printOmraade = ActiveCell.CurrentRegion
'
Sheets(Array("Forside", "afd 55", "Afstemning - 305.40", "afd 1")).Select
Sheets("Forside").Activate
ChDir "E:\Inkasso\305.40 - Afstemning"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"E:\Inkasso\305.40 - Afstemning\305.40 - Afstemning.pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End Sub

Synes godt om

jens48 Ekspert

01. juni 2018 - 12:58 #3

Måske kan du bruge noget i stil med dette:

Sub omraade()
Dim WS As Worksheet
Dim x As Integer
For Each WS In ActiveWorkbook.Worksheets
Range("C:C").Select
x = WorksheetFunction.Count(Range("C:C"))
WS.PageSetup.PrintArea = "$A$1:$d$" & x + 2
Cells(1, 1).Select
Next
End Sub

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Excel kurser

Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.

Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Identificér og hent del af tekststreng Af TheLibrarian i Excel	1	I går 16:49	I går 21:00
Ændre nuller til ovenstående tekst Af boro23 i Excel	4	20/11/202410:44	20/11/202412:08
HVIS med datoer Af HHA i Excel	6	20/11/202408:31	20/11/202412:51
Numerisk liste Af AND i Excel	8	19/11/202414:05	19/11/202423:31
Ændre nuller til ovenstående tal Af boro23 i Excel	3	19/11/202409:39	19/11/202411:51

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS