opmaak behouden na het verzenden

[ronnie123]

beste forum leden
als ik een blad als bijlage verzend veranderd de rij hoogte en kolom breedte
is hier wat tegen te doen?
ik gebruik de volgende code hiervoor

Sub Mail_Range()
  Application.ScreenUpdating = False

  With Workbooks.Add
    ThisWorkbook.Sheets("uitslagen").Range("A13:W715").SpecialCells(xlCellTypeVisible).Copy .Sheets(1).Range("A1")
    .SaveAs Environ$("temp") & "\DOM"
    c0 = .FullName
    .Close False
  End With

  With CreateObject("Outlook.Application").CreateItem(0)
    .To = ThisWorkbook.Sheets("uitslagen").Range("Y2")
    .CC = ""
    .BCC = ""
    .Subject = "Test"
    .Body = "hier is ie "
    .Attachments.Add c0
    .Send
  End With

  Application.ScreenUpdating = True
End Sub

bvd ronnie

 

[ronnie123]

beste forum leden
is hier geen oplossing voor
groetjes ronnie

 

[snb]

Wellicht

 With Workbooks.Add
    .columns.autofit=false
    .rows.autofit=false
    .Sheets(1).Range("A1:W702")=ThisWorkbook.Sheets("uitslagen").Range("A13:W715").Value
    .SaveAs Environ$("temp") & "\DOM"
    c0 = .FullName
    .Close False
  End With

 

[ronnie123]

hallo snb
bedankt voor de reactie.
maar ik krijg de foutmelding:
deze eigenschap of methode wordt niet ondersteund door dit opject.
de tweede regel is geel gemarkeerd

 .Columns.AutoFit = False

wa kan ik hier aan doen?
groetjes ronnie

 

[Wigi]

Er moet nog een referentie naar een blad bij, nl. op welk blad die Autofit al dan niet moet toegepast worden.

 

[ronnie123]

wigi ook bedankt voor je reactie
hoe pak ik dit aan
groetjes ronnie

 

[snb]

With Workbooks.Add
    [COLOR="blue"][B].sheets(1).[/B][/COLOR]columns.autofit=false
    [COLOR="Blue"][B].sheets(1)[/B][/COLOR].rows.autofit=false
    .Sheets(1).Range("A1:W702")=ThisWorkbook.Sheets("uitslagen").Range("A13:W715").Value
    .SaveAs Environ$("temp") & "\DOM"
    c0 = .FullName
    .Close False
  End With

 

[ronnie123]

hallo snb
nu krijg ik de melding
eigenschap autofit van klasse range kan niet worden ingesteld

Sub Mail_Range()
  Application.ScreenUpdating = False

  With Workbooks.Add
    .Sheets(1).Columns.AutoFit = False
    .Sheets(1).Rows.AutoFit = False
    .Sheets(1).Range("A1:W702") = ThisWorkbook.Sheets("uitslagen").Range("A13:W715").Value
    .SaveAs Environ$("temp") & "\DOM"
    c0 = .FullName
    .Close False
  End With
  With CreateObject("Outlook.Application").CreateItem(0)
    .To = ThisWorkbook.Sheets("uitslagen").Range("Y2")
    .CC = ""
    .BCC = ""
    .Subject = "uitslag"
    .Body = "groetjes ronnie"
    .Attachments.Add c0
    .Send
  End With

  Application.ScreenUpdating = True
End Sub

dit heb ik nu staan
groetjes ronnie

 

[ronnie123]

weet iemand wat er fout is
groetjes ronnie

 

[Wigi]

Haal 2x de " = False" weg aan het begin.

 

[ronnie123]

Wigi bedankt dat was het probleem

 

[ronnie123]

Wigi zit nog met het probleem dat de kolom breedte veranderd.
weet je hier nog iets op?
groetjes ronnie