Makro og VBA - til passe udskrift efter højden på data

Print side | Luk vindue

til passe udskrift efter højden på data

Udskrevet fra: Dansk Regneark Forum
Kategori: Hjælp til regneark.
Forum navn: Makro og VBA
Forum beskrivelse: Hjælp til Makroer og VBA-programmering
Web-adresse: https://forum.excel-regneark.dk/forum_posts.asp?TID=3018
Udskrevet den: 28.Apr.2024 kl. 04:49

Emne: til passe udskrift efter højden på data

Besked fra: Bjarnehansen
Emne: til passe udskrift efter højden på data
Posteringsdato: 18.Apr.2017 kl. 09:09

hej

hvordan kan man excel til til at tilpasse udskriften efter hvormange linjer data der er ind tastet
i fanen Benzin Regnskab" har en knap der udskriver den åbne side men den udskriver det område den er sat til der er måske ikke en hele side indtastet men hvis den er sat til en hel side udskriver den det og ikke kun de linjer er der indtastet.

kan man få den at stoppe efter sidste linje.
/uploads/397/k%C3%B8rselsregnskab_BC_21_323_version_1.03.05_beta.xlsm" rel="nofollow">uploads/397/kørselsregnskab_BC_21_323_version_1.03.05_beta.xlsm

-------------
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.
Med venlig hilsen - Bjarne Hansen - Microsoft 365 DK

Svar:

Besked fra: Ib Hansen
Posteringsdato: 18.Apr.2017 kl. 12:20

Prøv den her Wink

Jeg sætter udskriftområdet til A1:G200, så hovedet kommer med på udskriften.

Og så lukker jeg alle tomme rækker fra A8:A200, så de rækker, der ikke står en dato i, ikke kommer med.

uploads/1125/Ib_kørselsregnskab_BC_21_323_version_1.03.05_beta.xlsm" rel="nofollow - uploads/1125/Ib_kørselsregnskab_BC_21_323_version_1.03.05_beta.xlsm

-------------
Excel 2010 Dk og 2019 Dk på samme computer.
Bruger dog stadig mest 2010..
Men sådan er der jo så majet :o)

Besked fra: EXCELGAARD
Posteringsdato: 18.Apr.2017 kl. 13:16

Et stykke kage: Sæt udskriftsområdet til kolonner i stedet for celle område.

Altså, i stedet for "A1:G26" i 'Udskriftsområde' i 'Sideopsætning', skriver du "A:G".
Så udskriver Excel kolonnerne indtil sidste række i 'UsedRange'.

-------------
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.

Besked fra: Bjarnehansen
Posteringsdato: 18.Apr.2017 kl. 13:33

ActiveSheet.PageSetup.PrintArea = "A1:G200" kan man ikke få den til at sætte PrintArea hvis man nu også udvide med flere kolonner

excelgaard har du et lille eks. på det med 'UsedRange'

-------------
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.
Med venlig hilsen - Bjarne Hansen - Microsoft 365 DK

Besked fra: Bjarnehansen
Posteringsdato: 18.Apr.2017 kl. 13:34

Gnaske jeg kigger også dit forslag..

-------------
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.
Med venlig hilsen - Bjarne Hansen - Microsoft 365 DK

Besked fra: Bjarnehansen
Posteringsdato: 18.Apr.2017 kl. 14:05

Den kom til at se sådan her ud....

Sub Udskriv()
Dim ArkNavn As String

ArkNavn = ActiveSheet.Name 'Ark1.Name 'Navnet på den fane som skal udskrives

'Printer det aktive ark
ActiveSheet.PageSetup.PrintArea = "A:G"
Sheets(ArkNavn).PrintOut

End Sub

-------------
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.
Med venlig hilsen - Bjarne Hansen - Microsoft 365 DK

Besked fra: Bjarnehansen
Posteringsdato: 18.Apr.2017 kl. 14:34

men nu sker der noget mærkeligt knappen står og blinker helt vildt
jeg har frøset de 7 øverste rækker og hvis jeg sætter cursoren der op stopper den men scoller jeg så med de række nedunder starter den igen jeg har stadigvæk cursoren oppe i de 7 øverste rækker men flytter jeg den bare en celle stopper blinkeriet igen

-------------
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.
Med venlig hilsen - Bjarne Hansen - Microsoft 365 DK

Besked fra: EXCELGAARD
Posteringsdato: 18.Apr.2017 kl. 15:25

nu sker der noget mærkeligt knappen står og blinker helt vildt

Dette skyldes, at du har 'DisplayPageBreaks' slået til - det er et kendt problem, at dette ikke har det så godt med kontrol elementer på selve regnearket, hvis frys ruder også er slået til.

Det sker ikke så tit, at alle disse ting rammer sammen, men det sker Smile

Indsæt denne linje:

Me.DisplayPageBreaks = False

...i 'WorkheetSelection_Change' eventen, hvor du også kalder din kalender UserForm.

-------------
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.

Besked fra: EXCELGAARD
Posteringsdato: 18.Apr.2017 kl. 15:37

har du et lille eks. på det med 'UsedRange'

Du skal ikke selv angive 'UsedRange' - det klarer Excel selv - som VBA programmør forventede jeg blot, at du var bekendt med begrebet Geek

-------------
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.

Besked fra: Bjarnehansen
Posteringsdato: 18.Apr.2017 kl. 17:04

Jeg kunne få den til at holde op at blinke ved at udkommandere den linje med "A:G" så holdt den op.

Ang. vba er jeg ret ny det med usedrange fandt jeg ud af.

men nu vil den ikke køre udskriv() den kommer med en fejl gør den også det hos jer ?
/uploads/397/k%C3%B8rselsregnskab_BC_21_323_version_1.03.06_beta.xlsm" rel="nofollow">uploads/397/kørselsregnskab_BC_21_323_version_1.03.06_beta.xlsm

-------------
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.
Med venlig hilsen - Bjarne Hansen - Microsoft 365 DK

Besked fra: Bjarnehansen
Posteringsdato: 18.Apr.2017 kl. 17:44

Det er lige meget hvor jeg prøver at sætte den ind så længe jeg har frysruder slået til blinker den når jeg slår frysruder fra holder den op.??????

-------------
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.
Med venlig hilsen - Bjarne Hansen - Microsoft 365 DK

Besked fra: Bjarnehansen
Posteringsdato: 18.Apr.2017 kl. 18:16

nu tror jeg den er der :
Sub Udskriv()
    'Application.ScreenUpdating = False
    Dim ArkNavn As String

    ArkNavn = ActiveSheet.Name
    ActiveSheet.DisplayAutomaticPageBreaks = False
    ActiveSheet.PageSetup.PrintArea = "A:G"

    Sheets(ArkNavn).PrintOut
    'Application.ScreenUpdating = True
End Sub

-------------
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.
Med venlig hilsen - Bjarne Hansen - Microsoft 365 DK

Besked fra: EXCELGAARD
Posteringsdato: 18.Apr.2017 kl. 18:23

Hmmmm...
Underligt - hos mig virker det, hvis du sætter

Me.DisplayPageBreaks = False

...ind som aller sidste linje i 'Worksheet_SelectionChange' eventen.

Uanset, hvor du bruger den, så skal du indsætte linjen EFTER, du har laver ændringer i sideopsætningen, da selve sideopsætningen er det, der gør, at 'PageBreaks' bliver vist.

-------------
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.

Besked fra: Bjarnehansen
Posteringsdato: 18.Apr.2017 kl. 18:29

Så tror jeg den er Det med VBA er meget spændende at komme rigtigt igang med Hug

-------------
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.
Med venlig hilsen - Bjarne Hansen - Microsoft 365 DK

Besked fra: EXCELGAARD
Posteringsdato: 18.Apr.2017 kl. 18:31

Så tror jeg den er

Det sagde hun osse i går Wink

Det med VBA er meget spændende at komme rigtigt igang med

Ja, jeg tror osse, at jeg vil prøve, at gi' det en chance, her, en af dagene LOL

-------------
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.

Print side | Luk vindue