printen excel

[rvt1982]

Beste leden,

weet iemand welke code ik moet hebben voor VBA om ctrl + p te openen na een selectie ?
selectie = AC1:AJ48

Alvast bedankt.

 

[Cobbe]

Deze zou dat voor u moeten doen:

Range("AC1:AJ48").PrintOut

 

[rvt1982]

@Cobbe,

bedankt voor je reactie :thumb:

Maar dit is niet de script die ik zocht.
Met deze script gaat deze direct printen, en ik zou graag willen dat ik alleen het print scherm krijg, zodat men alleen de printer nog hoeven te selecteren en op OK hoeven te drukken.
of te wel ctrl + P :d

 

[HSV]

Misschien met deze.

Sub tst()
  Sheets(1).PageSetup.PrintArea = "AC1:AJ48"
  Application.Dialogs(xlDialogPrint).Show
End Sub

 

[rvt1982]

Harry, Wederom bedankt.

Werkt ook :thumb:

 

[rvt1982]

excel selectie mailen

Beste leden,

Ik heb de volgende script voor het printen van een selectie.

     Range("AC:AJ").Select
     Application.Dialogs(xlDialogPrint).Show

Maar nu zou ik graag willen ipv te printen deze selectie te mailen, naar een mail adres die is bijv. in A1 heb gezet.

Wie kan mij hier mee helpen.

Alvast bedankt.

 

[Warme bakkertje]

Kijk eens op de Site van Ron de Bruin. Daar staan vele voorbeelden om te mailen vanuit XL.

 

[rvt1982]

Beste Rudi,

Bedankt voor de tip, helaas kom ik daar niet helemaal uit.
Ik hoop dat je mij hier een stapje verder kan helpen.

Alvast bedankt.

 

[Warme bakkertje]

Da's nogal een algemeen antwoord, vindt je ook niet ? Begin eerst al eens met te vertellen waar je niet uitkomt zodat we iets hebben om een antwoord op te geven.

 

[rvt1982]

Dat was iets te kort.. maar ik heb deze script

     Range("AC:AJ").Select
     Application.Dialogs(xlDialogPrint).Show

Maar ipv printen wil ik graag de zelfde selectie mailen naar de mail adres die in 1A staat.
zodat men op 1 druk op de knop een bepaalde selectie direct kunnen mailen zonder tussen stappen.

Alvast bedankt.

 

[Warme bakkertje]

Dat had ik al wel begrepen, maar dan geef ik je een website waar alles duidelijk uitgelegd wordt wat betreft mailen van een selectie, en werkblad, een heel bestand en jij antwoord 'Daar kom ik niet helemaal uit'. Mijn vraag is dan Waar kom je niet helemaal uit ???????

 

[rvt1982]

Beste Rudi & leden,

Sorry voor de late reactie.

Ik heb op de site gekeken van Ron de Bruin, en heb de volgende code in elkaar gezet, maar werkt helaas niet bij mij, maar moet ik wel zeggen dat ik geen Outlook, maar moet wel voor Outlook gemaakt worden.

Ter info:
Selection: Sheets("Uitzendkracht").Range("AC:AJ")
Mail adres: Sheets("Uitzendkracht").Range("N25")
Onderwerp: Sheets("Uitzendkracht").Range("N26")

Kan iemand kijken wat ik fout doe ?

Alvast bedankt.

Sub Mail_Range()
'Working in 2000-2010
    Dim Source As Range
    Dim Dest As Workbook
    Dim wb As Workbook
    Dim TempFilePath As String
    Dim TempFileName As String
    Dim FileExtStr As String
    Dim FileFormatNum As Long
    Dim I As Long


    Set Source = Nothing
    On Error Resume Next
    Set Source = Sheets("Uitzendkracht").Range("AC:AJ").SpecialCells(xlCellTypeVisible)
    On Error GoTo 0

    If Source Is Nothing Then
        MsgBox "The source is not a range or the sheet is protected, " & _
               "please correct and try again.", vbOKOnly
        Exit Sub
    End If

    With Application
        .ScreenUpdating = False
        .EnableEvents = False
    End With

    Set wb = ActiveWorkbook
    Set Dest = Workbooks.Add(xlWBATWorksheet)

    Source.Copy
    With Dest.Sheets(1)
        .Cells(1).PasteSpecial Paste:=8
        .Cells(1).PasteSpecial Paste:=xlPasteValues
        .Cells(1).PasteSpecial Paste:=xlPasteFormats
        .Cells(1).Select
        Application.CutCopyMode = False
    End With

    TempFilePath = Environ$("temp") & "\"
    TempFileName = "Range of " & wb.Name & " " _
                 & Format(Now, "dd-mmm-yy h-mm-ss")

    If Val(Application.Version) < 12 Then
        'You use Excel 2000-2003
        FileExtStr = ".xls": FileFormatNum = -4143
    Else
        'You use Excel 2007-2010
        FileExtStr = ".xlsx": FileFormatNum = 51
    End If

    With Dest
        .SaveAs TempFilePath & TempFileName & FileExtStr, _
                FileFormat:=FileFormatNum
        On Error Resume Next
        For I = 1 To 3
            .SendMail sh.Sheets("Uitzendkracht").Range("N25").Value, _
                     ThisWorkbook.Sheets("Uitzendkracht").Range("N26").Value
            If Err.Number = 0 Then Exit For
        Next I
        On Error GoTo 0
        .Close SaveChanges:=False
    End With

    'Delete the file you have send
    Kill TempFilePath & TempFileName & FileExtStr

    With Application
        .ScreenUpdating = True
        .EnableEvents = True
    End With
End Sub

 

[rvt1982]

iemand ??