常連

Excel上F列の最終行数によって、印刷するページを変更して自動印刷するVBAを作成しようと思っております。

実行をしてみた所、以下最終行を取得する所で400エラー（※）となります。
考えられる原因教えて頂けますでしょうか。

ポップアップウィンドウで400のみ表示されました。
調べてみた所、「VBA エラー 400 アプリケーション定義または
オブジェクト定義のエラーです。」となっておりました。

MaxRow = wb.Worksheets(i).Cells(Rows.Count, 6).End(xlUp).Row

wb.Worksheets(i)をActivesheetに変更しても同様のエラーが発生しました。

```VBA
Sub insatu_xls()
Dim fol As String
Dim f As String
Dim wb As Workbook
Dim wscnt As Long
Dim i As Long


fol = "C:\temp"
f = Dir(fol & "*.xls")
Do While f <> ""
    Set wb = Workbooks.Open(fol & "\" & f)
    wscnt = wb.Worksheets.Count

For i = 1 To wscnt

    MaxRow = wb.Worksheets(i).Cells(Rows.Count, 6).End(xlUp).Row

    MsgBox MaxRow

    With wb.Worksheets(i).PageSetup
        .Orientation = xlPortrait
        .Zoom = False
        If MaxRow > 20 Then
            .FitToPagesTall = 1
        Else
            .FitToPagesTall = 2
        End If
    
        .FitToPagesWide = 1
　　　End With

　　　wb.Worksheets(i).PrintOut
　　　Next i
　　　wb.Close
　　　f = Dir()
Loop
Set wb = Nothing
End Sub
```

【VBA】最終行取得時に400エラー

### 前提・実現したいこと

ウェブページの内容をPDFとして保存したい。
そのために、VBAでSeleniumを通じてGoogleChromeを操作し、印刷画面の「PDFとして保存」を実行したい。
より具体的には、Excelで以下のようなマクロを作成したい。

①Chromeを起動
②Chromeの設定を変更(プリンタを「PDFとして保存」、印刷プレビューを表示せず印刷実行、など)
②あらかじめセルに記入したURLへページ遷移し、印刷実行
④エクセルの次のセルにて③を繰り返す

### 発生している問題・エラーメッセージ

②にて、設定変更が機能しない。
(プリンタがデフォルトのまま、印刷プレビューが表示された状態でマクロが一時停止する)

### 該当のソースコード

    Dim driver As New Selenium.ChromeDriver
    
    driver.Start "chrome"
    driver.AddArgument "--kiosk-printing"
    driver.SetPreference "Save as PDF", True
    

    Dim I As Integer
    I = 1

    Do Until Cells(I, 1).Value = ""
        driver.Get Cells(I, 1).Value
        driver.ExecuteScript ("return window.print()")
         I = I + 1
    Loop

### 試したこと
下記のように書き換えてみましたがエラーになりました。
①
    driver.ChromeOptions.AddArgument "--kiosk-printing"
②
    Dim ChromeOptions as New driver.ChromeOptions
   ChromeOptions.AddArgument "--kiosk-printing"

### 補足情報（FW/ツールのバージョンなど）
①
印刷プレビューは表示されているので、AddArgumentやSetPreferenceはエラーになっていないようですが、設定変更はできていません。
②
PDF化さえできればよいので、上記コードとは別のアプローチを教えていただく形でも全く問題ありません。

よろしくお願いします。

VBA + Selenium + Google Chrome でウェブページの内容をPDFとして保存したい。

皆様、gysnetと申します。
どうぞよろしくお願い致します。
アドバイスいただけたら幸いです。

###前提・実現したいこと
Windows10のPC上で動くC#(Visual Studio 2012)アプリケーションを
開発しようとしています。
DBはAccessです(ちょっとヘンテコな環境なのですが…)。
C#での帳票印刷ライブラリ(有償のもので言うと、Active Reportのようなもの)の中で無償で使えるものがありましたら、ご教授いただけませんでしょうか？
皆様のご実績の中でオススメとかありましたらよろしくお願い致します。

###補足情報(言語/FW/ツール等のバージョンなど)
PDFに出力するようなものとかでも構いません。色々情報を得ることができたらと考えております。「こんなのはどう？」みたいなものがあればコメントいただきたいです。

C#での帳票印刷ライブラリ(無償のもの)はありませんでしょうか？

googleスプレッドシートとドキュメントを使用し、officeのExcelとwordの差込印刷をGASを使用し申込書を作成しました。スプレッドシートの一覧は写真①の感じです
![写真①](b510e9c69bfd52d1d0d38c50b44d560e.png)
これを下記のコードでドキュメントに写し申込書を作成しています
```Google Apps Script
function insertName2(){
const templateDocId = "××××××××××××××××××××××××××××××××××××";
const keys = ['{ふりがな}','{名前}','{性別}','{学年}','{年齢}','{種別}','{電話番号}','{施設}','{レベル}','{バス希望}','{バスルート}','{バス停留所}'];

const template = DriveApp.getFileById(templateDocId);
if(template.getMimeType() !== "application/vnd.google-apps.document") return;

const table = DocumentApp.openById(templateDocId).getBody().getTables()[0];

const folder = DriveApp.createFolder((new Date()).toISOString());
const printfileID = template.makeCopy("印刷用紙", folder).getId();


const printDoc = DocumentApp.openById(printfileID);
const body = printDoc.getBody()
const data = SpreadsheetApp.getActiveSheet().getDataRange().getValues();

for(i=1; i<data.length; i++){
keys.forEach((k,j)=>body.replaceText(k,data[i][j]));
 if (i < data.length - 1){
   body.appendTable(table.copy());
   body.appendPageBreak(); 
 }
};

}
```
そうするとドキュメントの1枚目の写真のようにデータが入ります![1枚目の写真](3337fbf7c92377e95b3d0aefd01e2dd7.png)
11件データがドキュメントに反映される予定ですが、2枚目以降、写真２のように領収書部分がなぜか出ません。

![写真２](b0eaade4e4d6a4728520953df1cbccbe.png)
以前別のデータで試した際はうまく申込書の領収書部分も全てのドキュメントで出たのですが
コードがおかしいのでしょうか？困っております。

スプレッドシートURL　https://docs.google.com/spreadsheets/d/18_e2MtWAGXM-eH_PcOYFTngFdkbqirMHD23DWaCflWE/edit?usp=sharing

ドキュメントURL　　https://docs.google.com/document/d/1pxHdAuTfRzMultE8Akgwl96eqR07OWnTmbRYR9RRsVE/edit?usp=sharing

googleスプレッドシートとドキュメントを使用し、差込印刷をGASを使用し申込書を作成

pythonでコードと同ディレクトリーにあるtest_pdf.pdfフィルをデフォールトのプリンターで印刷するコードを2種作りましたが第一案は(2, 'ShellExecute', '指定されたファイルが見つかりません。')エラーでNG、第2案はアクロバットリーダーは開くのですが「この文書を開くときにエラーが発生しました。ファイル名、ディレクトリー名****」のエラーが発生します。どちらでも結構出すがしょううせい方法をご教授ください。

第1案　testprint1.py
```ここに言語を入力
# testprint1.py
# coding: utf-8
from __future__ import division, print_function, absolute_import, unicode_literals

# ref: http://timgolden.me.uk/python/win32_how_do_i/print.html
# ref: http://docs.activestate.com/activepython/2.7/pywin32/win32api__ShellExecute_meth.html

import win32api
import sys
import os

if __name__ == '__main__':
    os.chdir(os.path.dirname(os.path.abspath(__file__)))
    path = os.getcwd()
    pdf_file_name = path + "test_pdf"
    win32api.ShellExecute(0, "print", pdf_file_name, None, ".", 0)コード
```
第1案エラーメッセージ
Traceback (most recent call last):
  File "c:\PyPost\testprint3.py", line 16, in <module>
    win32api.ShellExecute(0, "print", pdf_file_name, None, ".", 0)
pywintypes.error: (2, 'ShellExecute', '指定されたファイルが見つかりません。')

第2案　testprint2.py
```ここに言語を入力
# testprint2.py
from subprocess import call
import win32api
import win32print

#acrobat = "C:\Program Files\Adobe\Acrobat 7.0\Acrobat.exe" ## Acrobat reader would also work, apparently
acrobat = "C:\Program Files (x86)\Adobe\Acrobat Reader DC\Reader\AcroRd32.exe"

#file = "C:\path\to\my\file.pdf"
file = "C:\PyPost\test_pdf.pdf"

#printer = "Printer Name Goes Here"
printer = win32print.GetDefaultPrinter()

call([acrobat, "/T", file, printer])

```
第2案エラーメッセージ
アクロバットリーダーが実行され、その画面内に「この文書を開くときにエラーが発生しました。ファイル名、ディレクトリー名、ボリュームラベル名の構文が間違っています」のエラーメッセージが表示される


### 補足情報（FW/ツールのバージョンなど）
第1案又は2案どちらでもよいのですが、このPDFファイルを印刷する方法をご教授ください。

pythonでPDFファイルが印刷できません

### 前提・実現したいこと

Webブラウザで、PDFが表示されると自動で印刷ダイアログが表示される様にしたいのですが、
読み込みに時間のかかる大きなファイル(1GB等)の場合には期待する動作が得られず困っています。

### 発生している問題

読み込みの完了を待ってから印刷メソッドを呼べばいいのですが、待つ方法が分かりません。

### 試したこと１
まず自動ではなく手動でなら可能か？
ということで、読み込み完了を待ってからボタンをクリックするコードを書きました。
結果、大きなファイルでも印刷ダイアログが表示されました。

```Javascript
<embed ID="example" src="test.pdf" type="application/pdf" width="800px" height="600px" >
<input type="button" value="Print" onclick="ShowPrintDialog();" />
<script type="text/javascript">
	function ShowPrintDialog()
	{
		var pdf = document.getElementById("example");
		pdf.print();
	}
</script>
```
### 試したこと２
onloadイベントハンドラが呼よばれないか？
呼ばれませんでした。
```Javascript
<embed ID="example" src="test.pdf" type="application/pdf" width="800px" height="600px" >
<script type="text/javascript">
	var pdf = document.getElementById("example");
	pdf.onload = function()
	{
		pdf.print();
	}
</script>
```
### 試したこと３
読み込み完了を待ってから印刷するサンプルがあったのでそれをやってみました。
小さなファイルはＯＫでしたが、大きなファイルではダイアログが表示されませんでした。
読み込みが完了する前に'undefined'ではなくなっています。
```Javascript
<embed ID="example" src="test.pdf" type="application/pdf" width="800px" height="600px" >
<script type="text/javascript">
	printDocument("example");
	function printDocument(documentId)
	{
		var pdf = document.getElementById(documentId);
		if (typeof doc.print === 'undefined')
		{
			setTimeout(function(){printDocument(documentId);}, 1000);
		}
		else
		{
			pdf.print();
		}
	}
</script>
```
### 試したこと４
PDFをblobに得てから表示したらAdobe PDF Readerアドオン内でのロード時間が劇的に短縮されてうまくいかないか？
と思いましたが、embedにblobで得たデータを渡す手法が分かりませんでした。
```Javascript
<script type="text/javascript">
	var request = new XMLHttpRequest();
	request.open("GET", "test.pdf", true);
	request.responseType = "blob";
	request.onload = function (e)
	{
		if (this.status === 200)
		{
			var file = window.URL.createObjectURL(this.response);
			var embed = document.createElement("embed");
			embed.src = this.response; // ここ？？
			embed.type = "application/pdf";
			embed.width ="800px";
			embed.height ="600px";
			document.body.appendChild(embed);
			
			// ここに印刷処理を書く
		}
	};
	request.send();
</script>
```
### 質問
1. 他にPDFの読み込み完了をハンドルする方法はないでしょうか？
2. embedにblobで得たデータを渡すことは可能でしょうか？
### 下記を条件としています
1. 実行環境はIE＋Adobe PDF Readerアドオンに限定。
　　すなわち、PDF.jsなどは利用できません。
2. PDFファイルにJavaScriptを埋め込むことはできません。
　HTMLに書くJavaScriptのみでの解決を図っています。
　(商用利用できるライブラリがあれば検討の余地はありますがiTextSharpは不可でした)


よろしくお願いいたします。

WebブラウザでPDFの印刷ダイアログを自動表示

### 質問
請求書の印刷をするために
xamlで定義したレイアウトの帳票を出力したいと考えております。

[WPF/XAMLで帳票のデザイン・印刷を行う](https://vain0x.github.io/blog/2016-12-25/reports-with-wpf/)
を参考にして作成しました。

下記ソースコードにて帳票を作成してみると
左上の隅に
「Domain.Report.BillingPageViewModel」
と表示されていて、
BillingPage.xamlで定義した内容が表示されません。

どう修正したらよいのか
教えていただけますようよろしくお願いいたします。

### BillingPage.xaml
```C#
<Window x:Class="Domain.Report.BillingPage"
        xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
        xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
        xmlns:d="http://schemas.microsoft.com/expression/blend/2008"
        xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006"
        xmlns:local="clr-namespace:Domain.Report"
        mc:Ignorable="d"
        Title="BillingPage" Height="450" Width="800">
    <Window.Resources>
        <DataTemplate DataType="{x:Type local:BillingPageViewModel}">
            <Grid Margin="30">
                <StackPanel>
                    <TextBlock HorizontalAlignment="Center" FontSize="30" Text="ハローワールド" />
                    <TextBlock HorizontalAlignment="Right" Text="2007/08/31" />
                    <TextBlock Text="Hello, world!" />
                </StackPanel>
            </Grid>
        </DataTemplate>
    </Window.Resources>
</Window>
```

### BillingPageViewModel.cs

```C#
namespace Domain.Report
{
    public sealed class BillingPageViewModel
    {
    }
}
```

### BillingReport.cs

```C#
namespace Domain.Report
{
    public sealed class BillingReport : IPaginatable
    {
        IReadOnlyList<object> Pages { get; } =
            new object[]
            {
                new BillingPageViewModel(),
            };

        public IReadOnlyList<object> Paginate(Size pageSize)
        {
            return Pages;
        }
    }
}
```


### IPaginatable.cs

```C#
namespace Domain.Report
{
    public interface IPaginatable
    {
        IReadOnlyList<object> Paginate(Size pageSize);
    }
}
```

### PaginatableExtension.cs

```C#
namespace Domain.Report
{
    public static class PaginatableExtension
    {
        public static FixedDocument ToFixedDocument(this IPaginatable paginatable, Size pageSize)
        {
            var document = new FixedDocument();

            foreach (var content in paginatable.Paginate(pageSize))
            {
                var presenter =
                    new ContentPresenter()
                    {
                        Content = content,
                        Width = pageSize.Width,
                        Height = pageSize.Height,
                    };

                var page =
                    new FixedPage()
                    {
                        Width = pageSize.Width,
                        Height = pageSize.Height,
                    };
                page.Children.Add(presenter);

                page.Measure(pageSize);
                page.Arrange(new Rect(new Point(0, 0), pageSize));
                page.UpdateLayout();

                var pageContent = new PageContent() { Child = page };
                document.Pages.Add(pageContent);
            }

            return document;
        }
    }
}
```


### 印刷ボタン
```C#
        /// <summary>
        /// 帳票印刷
        /// </summary>
        public DelegateCommand PrintButton { get; }
        private void PrintButtonExecute()
        {
            PrintDialog printDialog = new PrintDialog();
            bool? result = printDialog.ShowDialog();
            if (!result.HasValue || !result.Value) return;
            
            var queue = printDialog.PrintQueue;
            var writer = PrintQueue.CreateXpsDocumentWriter(queue);
            
            FixedDocument document = new BillingReport().ToFixedDocument(new Size(793.70, 1122.52));
            writer.Write(document);
        }
```

xamlで定義したレイアウトを印刷したい

### 実現したいこと

pythonで画面キャプチャを印刷するシステムを作りたいです。
キーボードのprintscreenボタンでクリップボードへスクリーンショットを格納したあと、印刷する方法を教えてください。

###環境
python-3.6.8でIDLEを使用しています。
osはwindows10　pro 64bitです。
プリンターはsharpのデジタルカラー複合機MX-3661です。




###試したこと
下記コードでクリップボードに格納した画像をpngファイルにするところまではできましたが、そこから印刷を実行する方法がわかりませんでした。

「このpngファイルを印刷する方法」、もしくは「変数captchaに代入した画像をpngファイルを作成せずに印刷する方法」をご教授いただければ幸いです。


```python
import win32com.client
from PIL import ImageGrab,Image

captcha=ImageGrab.grabclipboard()
captcha.save("pic.png")

```


勉強をはじめたばかりのため、非常識な発言等がありましたら、申し訳ございません。
初めての投稿ですが、よろしくお願いいたします。