vba - Create Dynamic Excel Macro for printing to PDF -



vba - Create Dynamic Excel Macro for printing to PDF -

i have excel document couple hundred lines in it. document contains list of users info each user. each user can have multiple different rows of information.

i have been trying past couple hours create macro allows excel file sort users according name, take names , print them pdf document users name , date printed file name.

example:

1 user1 info info info 2 user1 info info info 3 user1 info info data 4 user2 info info info 5 user2 info info data 6 user3 info info info 7 user3 info info info 8 user3 info info info 9 user3 info info data

so column name "user1" needs printed rows info own pdf document. same goes "user2" , "user3" , such forth.

i tried using "record macro" alternative excel more gave me ideas rather working solution. record macro though not much wanting do. if provide guidance or provide help appreciate it.

thank you

sub exportnamestopdf2() ' ' exportnamestopdf2 macro ' ' keyboard shortcut: ctrl+j ' activewindow.smallscroll down:=-36 rows("1:1").select selection.autofilter selection.autofilter activeworkbook.worksheets("document - copy").autofilter.sort.sortfields.clear activeworkbook.worksheets("document - copy").autofilter.sort.sortfields.add key:= _ range("b1"), sorton:=xlsortonvalues, order:=xlascending, dataoption:= _ xlsortnormal activeworkbook.worksheets("document - copy").autofilter.sort .header = xlyes .matchcase = false .orientation = xltoptobottom .sortmethod = xlpinyin .apply end rows("2:4").select selection.printout copies:=1, collate:=true end sub

i wouldn't utilize autofilter.

i sort user name, create loop "a" prints, , loop "b" within goes row-by-row , evaluates user name changes.

something like:

i = 2 lastrow = 0 firstrow = if cells(i, 1) <> cells(i + 1, 1) lastrow = end = + 1 while lastrow < rows(firstrow & ":" & lastrow).printout copies:=1, collate:=true while cells(i, 1) <> ""

this assumes user id in column 1 ("a").

but prints, guess? don't see macro saving file anywhere.

excel vba excel-vba office-2013

Comments

Post a Comment

Popular posts from this blog

Delphi change the assembly code of a running process -

Delphi change the assembly code of a running process - i'm trying alter address 00741fa5 has push test.009e721c . alter push test.009e71c8 . procedure callback; asm force $9e71c8 end; procedure tform2.btn1click(sender: tobject); var ppid :dword; pprocess : cardinal; begin getwindowthreadprocessid(findwindow(nil,pchar('test')), @ppid); pprocess := openprocess(process_all_access, false, ppid); injectasm(pprocess, $741fa5, 10, integer(@callback), 0); end; here injectasm function (with error checking) function injectasm(process: longword; injectaddress, injectsize, codeaddress, codesize : integer): pointer; var csize, rsize : integer; replaced : array of byte; jmp : array [0..4] of byte; jmpaddress : integer; nopv : byte; : integer; nbr: ulong_ptr; begin //injectsize must equal or greater 5, because need space our //(far) jmp wwxxyyzz instruction //if there's no space, inject in place of few instructions if injectsize ...
Read more

json - Hibernate and Jackson (java.lang.IllegalStateException: Cannot call sendError() after the response has been committed) -

json - Hibernate and Jackson (java.lang.IllegalStateException: Cannot call sendError() after the response has been committed) - hello have problem hibernate , jackson. have 2 pojos @entity @table(name = "users") public class user implements serializable { static final long serialversionuid = 4235637833262722256l; @id @generatedvalue private int id; @column(name = "creation_date") private date creationdate; @column(name = "first_name") private string firstname; @column(name = "last_name") private string lastname; @version @column(name = "version") private int version; @column(name = "e_mail") private string email; @column(name = "enabled") private boolean enabled; @column(name = "login") private string login; @column(name = "password") private string password; @jsonmanagedreference("role") @onetomany(mappedby = "user", cascade = cascadetype.all,fetch = fetchtyp...
Read more

C++ 11 "class" keyword -

C++ 11 "class" keyword - i've started using c++ 11 little bit more , have few questions on special uses of class keyword. know it's used declare class, there's 2 instances have seen don't understand: method<class t>(); and class class_name *var; why precede typename keyword class in first example, , keyword pointer in sec example? that known elaborated type specifier , necessary when class name "shadowed" or "hidden" , need explicit. class t { }; // love of god don't t t; t t2; if compiler smart, give these warnings: main.cpp:15:5: error: must utilize 'class' tag refer type 't' in scope t t2; ^ class main.cpp:14:7: note: class 't' hidden non-type declaration of 't' here t t; ^ if class not defined, deed forwards declaration. for example: template <typename t> void method() { using type = typename t::value_type; } method...
Read more