deze macro veranderd mijn cellen in map die ik verstuur

[avesoft]

Bekijk bijlage 132995heren forumleden

ik wil een sheet versturen maar alle cellen worden in breedte en hoogte veranderd
is het mogelijk dat die verhinderd word ,en een msg box verschijnt waar gevraagd word
bv staand of liggend

knopfunctie mailen staat op blad 1 en sheet bestelformulier is blad 11


deze marco gebruik ik nu,werkt goed tot ik mail open maak dan zijn de cellen veranderd kunnen jullie mij op weg helpen


Private Sub cmdemail_Click()
Sheets("bestelformulier").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Application.ScreenUpdating = False
Range("B4:N32").Select
Selection.Copy
Workbooks.Add
Selection.PasteSpecial Paste:=xlPasteValues
Selection.PasteSpecial Paste:=xlPasteFormats
Columns("B:N").EntireColumn.AutoFit
Application.CutCopyMode = False
With ActiveWindow
.DisplayGridlines = False
.DisplayZeros = False
End With

Application.Dialogs(xlDialogSendMail).Show
ActiveWorkbook.Saved = True
ActiveWorkbook.Close
Application.ScreenUpdating = True
Range("B4").Select
End Sub


gr arie

 

[Cobbe]

Het is in dit geval beter om uw bestelbon op te slaan als PDF en deze dan te mailen.

 

[avesoft]

cobbe

zou ook kunnen maar dan moet de macro ook aangepast worden

gr arie

 

[avesoft]

cobbe

zou jij de macro voor mij kunnen aanpassen zodat het werkt ik zit al de hele tijd te tobben maar lukt me niet

vanuit blad 1(userformknop opslaan/mailen) zou ik graag een sheet (bv blad 14) op willen slaan als pdf(naam via msgbox) in een map en daarna mailen met outlook

gr arie

 

[alphamax]

verwijder

Columns("B:N").EntireColumn.AutoFit

autofit = automatisch celafmetingen aanpassen

 

[avesoft]

alphamax

ik zal dat vanavond eens proberen

gr arie

 

[avesoft]

alphamax


helaas werkt niet

mischien toch een oplossing omdit als pdf op te slaan en dan automatisch te versturen

gr arie

 

[Warme bakkertje]

Private Sub cmdemail_Click()
Application.ScreenUpdating = False
    With Sheets("bestelformulier")
        .PrintOut Copies:=1, Collate:=True
        .Copy
    End With
    With ActiveWindow
        .DisplayGridlines = False
        .DisplayZeros = False
    End With
    Application.Dialogs(xlDialogSendMail).Show
    With ActiveWorkbook
        .Saved = True
        .Close
    End With
    Application.ScreenUpdating = True
    Range("B4").Select
End Sub

 

[avesoft]

Warme bakkertje

dank je

voor zover doet hij wat ik graag zou willen , ik kijk morgen verder

gr arie

 

[avesoft]

heren

allereerst dank voor de hulp , het werkt voor zover ik getest heb

gr arie