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


Emne lukketMakroer til "Print" og "Vis udskrift".
 Besvar Besvar
Forfatter
  Emne Søg Emne Søg  Emne funktioner Emne funktioner
PI Se dropdown
Sølv bruger
Sølv bruger
Avatar

Medlem: 07.Mar.2011
Status: Offline
Point: 294 		Direkte link til dette indlæg Emne: Makroer til "Print" og "Vis udskrift".
    Sendt: 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
Til top



Til top
PI Se dropdown
Sølv bruger
Sølv bruger
Avatar

Medlem: 07.Mar.2011
Status: Offline
Point: 294 		Direkte link til dette indlæg Sendt: 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
Til top
PI Se dropdown
Sølv bruger
Sølv bruger
Avatar

Medlem: 07.Mar.2011
Status: Offline
Point: 294 		Direkte link til dette indlæg Sendt: 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
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.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
 
Til top
PI Se dropdown
Sølv bruger
Sølv bruger
Avatar

Medlem: 07.Mar.2011
Status: Offline
Point: 294 		Direkte link til dette indlæg Sendt: 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
Til top
 Besvar Besvar

Skift forum Forum tilladelser Se dropdown

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