excel printen+opslaan

[Nico441]

ik ben bezig met een factuur programa aan het maken

nu wil ik een macro als je daar op klikt

1. werkblad factuur uitprinten (2X)
2. werkblad factuur opslaan als E5(excel doc)

alvast bedankt

 

[ExcelAmateur]

Gebruik de zoekmachine van Helpmij eens en zoek op Factuur.

 

[Excel gebruiker]

Deze macro heb ik gemaakt in mijn excel factuur sheet.

Factuur wordt opgeslagen als .PDF met als bestandsnaam "Factuur" en de waarde van het factuurnummer in cel F25.

Misschien kun je er iets mee.

Sub Printen()
'
' Printen Macro
' Printen en opslaan als .pdf
'

'
    ExecuteExcel4Macro "PRINT(1,,,2,,,,,,,,2,,,TRUE,,FALSE)"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "F:\Facturen\Factuur" & Range("F25") & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties _
        :=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub

 

[Nico441]

dit heb ik nu

Sub printen()

'
' printen Macro
'

  Dim strFileName As Variant
  Dim strPath As String
  strFileName = Range("E5").Value
  strFileName = Application.GetSaveAsFilename(InitialFileName:=strPath & strFileName, _
                                              FileFilter:="Excel Files (*.xls), *.xls, Excel 2007 Files (*.xlsm), *.xslm", _
                                              FilterIndex:=1, _
                                              Title:="Kies de juiste map en pas eventueel de bestandsnaam aan!")
  If strFileName = False Then
    MsgBox "Oh oh... je hebt niet opgeslagen! "
  Else
    ActiveSheet.Copy
    ActiveWorkbook.SaveAs Filename:=strFileName
    MsgBox "Gelukt!  Opgeslagen als: " & strFileName
  End If
End Sub

maar ik wil hem gelijk op de goede plek

ps. we zijn al goed op weg

 

[Warme bakkertje]

Vul het volledige pad in voor de bestandsnaam

ActiveWorkbook.SaveAs Filename:="D:\Mijn documenten\Helpmij\" & strFileName

 

[aph]

Ik heb de vraag vandaag op een ander onderwerp gesteld, nl.

http://www.helpmij.nl/forum/showthread.php/564602-VBA-Printen-naar-XPS-p

is het ook mogelijk om via opslaan als PDF of XPS (opslaan PDF) een logo (briefpapier) mee te zenden?

 

[oeldere]

zo kun je de link ook meteen benaderen

http://www.helpmij.nl/forum/showthread.php/564602-VBA-Printen-naar-XPS-printer?p=3596776&viewfull=1

 

[Nico441]

het is geluk !!