Treść przeznaczona dla osób powyżej 18 roku życia...
hacker666 via Wykop Mobilny (Android)
@John_Player_Special: o chui a jeszcze niedawno widziałem ją w Voice Kids
Treść przeznaczona dla osób powyżej 18 roku życia...
Treść przeznaczona dla osób powyżej 18 roku życia...
hacker666 via Wykop Mobilny (Android)
@Ronaldinho: czytałem już gdzieś o tym. Samsung podobno też jest na dobrej drodze do wprowadzenia takiego smartwacha. Pomijając już kwestie ceny to mam nadzieję że będzie bardziej precyzyjny niż w przypadku pomiarów tętna w większości zegarków. Najtańszy system CMG kosztuje około 600 zł miesięcznie. Ile zaplacilibyscie za taki zegarek?
hacker666 via Wykop Mobilny (Android)
@taju: ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=
"E:\Oferty\2021\OFERTA XXX 3047.2021 XXXi.pdf",
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True
"E:\Oferty\2021\OFERTA XXX 3047.2021 XXXi.pdf",
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=
"C:\Users\WI~1\AppData\Local\Temp\OFERTA XXX 3047.2021 XXX.pdf"
, Quality:=xlQualityStandard, IncludeDocProperties:=False, _
IgnorePrintAreas:=False, OpenAfterPublish:=False
Application.Dialogs(xlDialogSendMail).Show
"C:\Users\WI~1\AppData\Local\Temp\OFERTA XXX 3047.2021 XXX.pdf"
, Quality:=xlQualityStandard, IncludeDocProperties:=False, _
IgnorePrintAreas:=False, OpenAfterPublish:=False
Application.Dialogs(xlDialogSendMail).Show
@taju: złe makro wysłałem wcześniej.
@taju: Działa!! Dzięki za namiary.
Jeszcze jedno pytanko. Makro robi mi PDF z nawą arkusza [ xSht.Name + ".pdf" ] znasz może komendę taką żeby wpisywała się nazwa pliku?
Jeszcze jedno pytanko. Makro robi mi PDF z nawą arkusza [ xSht.Name + ".pdf" ] znasz może komendę taką żeby wpisywała się nazwa pliku?
Tego właśnie mi brakowało.
Teraz muszę tylko wykombinować tak aby PDF zapisywało domyślnie tam gdzie plik xls który drukuje.
W tym kodzie zawsze muszę wybierać folder.
Teraz muszę tylko wykombinować tak aby PDF zapisywało domyślnie tam gdzie plik xls który drukuje.
W tym kodzie zawsze muszę wybierać folder.
@taju: Jestem zielony jeżeli chodzi o marka i musisz mi pisać jak dziecku gdzie wpisać i jak. Podejrzewam że ten fragment trzeba zmienić.
Set xSht = ActiveSheet
Set xFileDlg = Application.FileDialog(msoFileDialogFolderPicker)
If xFileDlg.Show =
Set xSht = ActiveSheet
Set xFileDlg = Application.FileDialog(msoFileDialogFolderPicker)
If xFileDlg.Show =
źródło: comment_1618718749tf9pbcjfxH86nRqMoMDG3P.jpg
Pobierz