Gem med samme cellestørelse og udskriftopstillin

Sub Makro1()
Selection.ColumnWidth = 34
End Sub

Dette retter celle bredden to det felt to er i

Kan du ikke prøve at uddybe lidt - jeg kan ikke rigtig gennemskue hvad du mener.

Selection == den celle du er
ColumnWidth == bredden på den kolonne cellen
er i.

evt. prøv a inspille og der efter rediger den
og se hvad den gør.

For at kunne hjælpe more skal jeg have more info

Zardic

HER ER ET UDSNIT AF MIN MAKRO Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
  Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
  OG NÅR JEG TILFØJER DENNE LINJE VIRKER DET IKKE
Selection.PasteSpecial Paste:=xlColumnWidths, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False

Ja, lidt uddybning af problemet er vist nødvendigt.

kan ikke hjælpe

Hvi det ikke er tilstrækeligt kan jeg sende hele koden .Jeg gemmer automatisk med en makro ,og når jeg åbner det gente ark for at redigere og vil udskrive det ,passer cellebreden ikke og jeg skal indstille udskrivningen igen ,og da der er flere brugere kan de slet ikke finde ud af det

Det vil sige, at cellebredden ændrer sig automatisk? Det lyder mystisk.
Prøv evt. at sende filen til mig, så skal jeg se på det.

jeg har sendt arket til janvogt

Jeg kan måske være behjælpelig, hvis det ikke skulle lykkedes for janvogt.

>>lillejens

I bunden af den makro, som du har sendt til mig, der har du følgende kode...

  ActiveWindow.Zoom = 75    \'måske denne komando kan beholde zoom størelsen
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True \'<---indsætter billeder her :)
  ActiveWorkbook.SaveAs Filename:=Path + Name
  ActiveWorkbook.Close (0)
  ActiveWorkbook.Close (0)
End Sub

Flyt lidt rundt på det, og slet et par linier, således det kommer til at se således ud.

  ActiveWorkbook.SaveAs Filename:=Path + Name
    With ActiveSheet.PageSetup
        .LeftMargin = Application.InchesToPoints(0.196850393700787)
        .RightMargin = Application.InchesToPoints(0.196850393700787)
        .TopMargin = Application.InchesToPoints(0.511811023622047)
        .BottomMargin = Application.InchesToPoints(0.551181102362205)
        .HeaderMargin = Application.InchesToPoints(0)
        .FooterMargin = Application.InchesToPoints(0)
        .Zoom = 82
    End With
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
  ActiveSheet.Range(\"A1\").Select
  ActiveWorkbook.Close SaveChanges:=True
  ActiveWorkbook.Close (0)
End Sub

www.win-consult.com

Nu ser det sidste af koden sådan ud og den opfylder alle mine ønsker tak til Flemming og Jan for de mange forsøg,jeg giver de 60 point til Flemming og 30 til Jan for de gode forsøg  som jeg har lært en del af ;o] mvh Lillejens

Hovsa her er koden.
ActiveWorkbook.SaveAs Filename:=Path + Name
    With ActiveSheet.PageSetup
        .LeftMargin = Application.InchesToPoints(0.196850393700787)
        .RightMargin = Application.InchesToPoints(0.196850393700787)
        .TopMargin = Application.InchesToPoints(0.511811023622047)
        .BottomMargin = Application.InchesToPoints(0.551181102362205)
        .HeaderMargin = Application.InchesToPoints(0)
        .FooterMargin = Application.InchesToPoints(0)
        .Zoom = 84
    End With
  ActiveWindow.Zoom = 75    \'Indstillingskode ......
  ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
  ActiveSheet.Range(\"A1\").Select
  ActiveWorkbook.Close SaveChanges:=True
  ActiveWorkbook.Close (0)