excel - Changing VBA that creates Multiple PDFs to Single PDF -

-

the code below working great create pdfs worksheet 3 worksheet named "post" while ignoring hidden sheets. creates individual pdf each of these worksheets. linked shape users click , prompted select folder save pdfs.

i'm trying alter code below exact same thing except create single pdf each visible worksheet between sheet 3 , "post".

i've been massaging code around while , wondering if knows best way accomplish this?

sub saveallpdf() dim integer dim fname string dim tabcount long  tabcount = sheets("post").index 'set tabcount last cell want pdf  dim dialog filedialog dim path string  set dialog = application.filedialog(msofiledialogfolderpicker) dialog.allowmultiselect = false if dialog.show = -1     path = dialog.selecteditems(1)     ' begin loop.     = 3 tabcount     'set = number of first sheet want pdf in order left right tabcount         if sheets(i).visible <> xlsheetvisible         else             sheets(i)                 fname = .range("c15") & " " & .range("e13") & "-" & .range("b1")                 'the fname above equaling cells pdf's filename                 'the folder directory below pdf files saved                 .exportasfixedformat type:=xltypepdf, filename:=path & "\" & fname, quality:=xlqualitystandard, _                 includedocproperties:=true, ignoreprintareas:=false, openafterpublish:=false             end         end if     next      call shell("explorer.exe" & " " & path & "\", vbnormalfocus)     'this opens folder pdfs saved end if end sub

if select multiple worksheet tabs mouse, select print, print them 1 print job, give try in code:

sub saveallpdf() dim integer dim fname string dim tabcount long dim asheetnames variant  tabcount = sheets("post").index 'set tabcount last cell want pdf  dim dialog filedialog dim path string  set dialog = application.filedialog(msofiledialogfolderpicker) dialog.allowmultiselect = false if dialog.show = -1     path = dialog.selecteditems(1)     ' begin loop.     = 3 tabcount     'set = number of first sheet want pdf in order left right tabcount         if sheets(i).visible <> xlsheetvisible         else             redim preserve asheetnames(i-2)  'subtract 2, since starts @ 3             asheetnames(i-2) = sheets(i).name  'build array of sheets print         end if      next      fname = 'make here bulk file name      sheets(asheetnames).exportasfixedformat type:=xltypepdf, filename:=path & "\" & fname, quality:=xlqualitystandard, _                 includedocproperties:=true, ignoreprintareas:=false, openafterpublish:=true  end if end sub

note: no guarantees expressed or implied, may have debugging, off top of head, might work...


Comments

Post a Comment

Popular posts from this blog

c++ - No viable overloaded operator for references a map -

-
i trying use map can make tag names reference number. when try , use it, in code error (6 in total every time reference map): src/main.cpp:25:45: error: no viable overloaded operator[] type 'std::map<std::string, std::string>' const char* idcs = node.child_value(tagmap[3]); this code: #include "pugi/pugixml.hpp" #include <iostream> #include <string> #include <map> int main() { pugi::xml_document doca, docb; std::map<std::string, pugi::xml_node> mapa, mapb; std::map<std::string, std::string> tagmap {{"1", "data"}, {"2", "entry"}, {"3", "id"}, {"4", "content"}}; if (!doca.load_file("a.xml") || !docb.load_file("b.xml")) { std::cout << "can't find input files"; return 1; } (auto& node: doca.child(tagmap[1]).children(tagmap[2])) { co
Read more

java - Custom OutputStreamAppender not run: LOGBACK: No context given for <MYAPPENDER> -

-
i wish write custom appender on basis of outputstreamappender . wrote following class package tests; import java.io.ioexception; import java.io.outputstream; import ch.qos.logback.core.outputstreamappender; public class myappender<e> extends outputstreamappender<e> { public myappender() { system.out.println("myappender created"); setoutputstream(new outputstream() { @override public void write(int b) throws ioexception { throw new unsupportedoperationexception(); } }); } } then wrote following runner: package tests; import org.slf4j.loggerfactory; import ch.qos.logback.classic.logger; public class runner { private static final logger log = (logger) loggerfactory.getlogger(runner.class); public static void main(string[] args) { //log.addappender(new myappender<iloggingevent>()); log.info("hello world"); } } finall
Read more

java - Cannot secure connection using TLS -

-
i'm trying establish secure socket connection between java client applet (built jdk 1.7.0_75-b13) , vc++ server application. as test vehicle, used vc++ client/server sample found in msdn forums, modified use schannel , able establish socket using cipher suite tls_rsa_with_aes_128_cbc_sha. works of tls 1.0/1.1/1.2. when try opening socket java applet same server application, connection rejected server reporting following: tls 1.0 acceptsecuritycontext failed: 0x80090327 tls 1.1 acceptsecuritycontext failed: 0x80090331 tls 1.2 acceptsecuritycontext failed: 0x80090331 this java code used create socket: debugprint("setting secure connection"); sslsocketfactory sslsocketfactory = (sslsocketfactory) sslsocketfactory.getdefault(); sslsocket sslsocket = (sslsocket) sslsocketfactory.createsocket("127.0.0.1", socketnumber); debugprint("starting handshake"); sslsocket.settcpnodelay(true); sslsocket.setsolinger(false, 0); sslsocket.s
Read more