Print side | Luk vindue

Makroer til "Print" og "Vis udskrift".

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=445
Udskrevet den: 18.Maj.2024 kl. 13:11


Emne: Makroer til "Print" og "Vis udskrift".
Besked fra: PI
Emne: Makroer til "Print" og "Vis udskrift".
Posteringsdato: 01.Sep.2011 kl. 20:57
Er der en her i DRF der kan hjælpe mig med at kode fire makroer som:
  1. definerer sideopsætningen til A3-format, liggende, og udskriftområde afpasset med 1-sidebredde men variabelt sideantal - og printer udskriftsområdet på defaultprinteren.
  2. definerer sideopsætningen til A3-format, liggende, og udskriftsområde afpasset med 1-sidebredde men variabelt sideantal - og viser udskriftsområdet med ”vis udskrift”.
  3. definerer sideopsætningen til A4-format, stående, og udskriftsområde afpasset med 1-sidebredde men variabelt sideantal - og printer udskriftsområdet på defaultprinteren.
  4. definerer sideopsætningen til A4-format, stående, og udskriftsområde afpasset med 1-sidebredde men variabelt sideantal - og viser udskriftsområdet med ”vis udskrift”.

Når makroen er skrevet kan jeg selv ændre definitionen af udskriftsområdet. Jeg forventer at tilknytte makroerne til kontrolelementer i et regneark. Jeg har styr på at benytte kontrolelementer og indspilning af mindre makroer, men ikke direkte kodning af makroer til mere sofistikerede handlinger.

På forhånd tak - og al ros til det gode forum.



-------------
Mvh. PI / Excel 2010


Svar:
Besked fra: PI
Posteringsdato: 06.Sep.2011 kl. 23:37
Jeg har fundet en løsning - Jeg uploader makroerne i løbet af nogle dage.

-------------
Mvh. PI / Excel 2010

Besked fra: PI
Posteringsdato: 10.Sep.2011 kl. 18:54
Jeg har løst udfordringen med følgende makroer:
 
Sub SeA4Format()
'
' SeA4Format Makro
' Makro af PI
'
    With ActiveSheet.PageSetup
        .Orientation = xlPortrait
        .PaperSize = xlPaperA4
        .Zoom = 95
    End With
    ActiveSheet.PageSetup.PrintArea = "$A$9:$H$604"
    ActiveWindow.SelectedSheets.PrintPreview
End Sub
Sub SeA3Format()
'
' SeA3Format Makro
' Makro af PI
'
    ActiveSheet.PageSetup.PrintArea = "$A$56:$AE$604"
    With ActiveSheet.PageSetup
        .Orientation = xlLandscape
        .PaperSize = xlPaperA3
        .FirstPageNumber = xlAutomatic
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 10
    End With
    ActiveWindow.SelectedSheets.PrintPreview
End Sub
Når hhv. A4 og A3 formaterne vises, kan der printes fra siden, hvis dette ønskes.


-------------
Mvh. PI / Excel 2010

Besked fra: Allan
Posteringsdato: 13.Sep.2011 kl. 09:19
Hej PI,
 
Tak for du gav dig tid til at lægge din løsning tilgængelig for alle andre med måske samme problemstilling.
 
//Allan
 

Besked fra: PI
Posteringsdato: 14.Sep.2011 kl. 19:07
Hej Allan!
 
Tak selv. Du gør et stort arbejde som kommer alle i DRF til gavn.


-------------
Mvh. PI / Excel 2010


Print side | Luk vindue