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

Prøv den her 

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'

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

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

Indsæt denne linje:

Me.DisplayPageBreaks = False

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

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

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

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